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