Wrong WRITE argument list.

[kapa-tps]

In SUBROUTINE DPLACE

1919 WRITE(I2,291)NAMEG,I,J,LATD,LATM,SLAT,LATDIR,LOND,
1920 1 LOND,LONM,SLON,LONDIR,BLAB
1921 291 FORMAT(A10,2I4, 7X,I2,1X,I2,1X,F8.5,1X,A1,2X,I3,
1922 1 1X,I2,1X,F8.5,1X,A1,1X,A17)

WRITE has 13 parameters, FORMAT describes 12 parameters.
The last parameter on the first line of WRITE is LOND, the first parameter on the next line is the same.