float conversion error

[Jack Howarth]

    In compiling whatcheck tonight with gfortran from current gcc main
trunk (with the byte patch applied), I noticed on compile error that
I don't see a workaround for. The error is...

gfortran -x f77  -DUNIX -DCTEXT -DF2C -DGLX11 -DX11 -DDX4 -DLITE -DWHATCHECK -O3  -c -o electr.o electr.f
 In file ../whatif/src/electr.f:2306

      ELNB2R=(FLOAT(GRID(NX,NY,NZ))-FLOAT(IPLUS(MAPNOW)))/              
                   1
Error: Type of argument 'a' in call to 'float' at (1) should be INTEGER(4), not INTEGER(2)

The GRID array is declared as an INTEGER*2 array. Is there an easy work
around for this problem?
              Jack