C^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ SUBROUTINE FORM C^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ IMPLICIT REAL(A-H,O-Y) IMPLICIT COMPLEX(Z) INCLUDE 'PACVPP' DO 1000 IT = 1,KTYP DO 1010 N = 1,KG ZFM3(N,IT) = DCMPLX(0.0D0,0.0D0) 1010 CONTINUE 1000 CONTINUE DO 2000 IA=1,KATM DO 2010 I=1,KG FX = GX(I) FY = GY(I) FZ = GZ(I) ZFORT =CDEXP(-ZI*(CATX(IA)*FX+CATY(IA)*FY+CATZ(IA)*FZ)) *VOCL STMT,IF(90) IF(I.LE.KNBMX) ZFM2(I,IA) = ZFORT ZFM3(I,KFTYPE(IA)) = ZFM3(I,KFTYPE(IA)) + ZFORT 2010 CONTINUE 2000 CONTINUE RETURN END