我在网上下载了计算广义mie理论的fortran代码,运行出现如下错误,请各位大神不吝赐教呀:

--------------------Configuration: gmm01f - Win32 Debug--------------------
Compiling Fortran...
D:\gmm20140411\gmm01f.f90
D:\gmm20140411\gmm01f.f90(1) : Error: Syntax error, found IDENTIFIER 'FORTRAN' when expecting one of: ( : % . = =>
C  Fortran code gmm01f.f for calculating radiative scattering by an 
---^
D:\gmm20140411\gmm01f.f90(2) : Error: Syntax error, found IDENTIFIER 'EXTERNAL' when expecting one of: ( : % . = =>
C  external aggregate of homogeneous spheres in a fixed orientation or  
---^
D:\gmm20140411\gmm01f.f90(3) : Error: Syntax error, found IDENTIFIER 'AT' when expecting one of: ( : % . = =>
C  at an average over individual orientations 
---^
D:\gmm20140411\gmm01f.f90(4) : Error: Syntax error, found INTEGER_CONSTANT '10' when expecting one of: ( : % . = =>
C  10/20/1994    Yu-lin Xu
---^
D:\gmm20140411\gmm01f.f90(4) : Error: Syntax error, found IDENTIFIER 'YU' when expecting one of: * :: , <END-OF-STATEMENT> ; : ) + . - (/ [ ] /) ** / > // .LT. < ...
C  10/20/1994    Yu-lin Xu
-----------------^
D:\gmm20140411\gmm01f.f90(5) : Error: Syntax error, found IDENTIFIER 'REVISED' when expecting one of: ( : % . = =>
C  revised at 8/1996, 6/1998, 8/2000, 12/2000
---^
D:\gmm20140411\gmm01f.f90(6) : Error: Syntax error, found IDENTIFIER 'RELEASED' when expecting one of: ( : % . = =>
C  released to public at 1/2001
---^
D:\gmm20140411\gmm01f.f90(7) : Error: Syntax error, found '-' when expecting one of: ( : % . = =>
C  ---------------------------------------------------------------------
---^
D:\gmm20140411\gmm01f.f90(7) : Error: Syntax error, found END-OF-STATEMENT when expecting one of: ( <IDENTIFIER> <CHAR_CON_KIND_PARAM> <CHAR_NAM_KIND_PARAM> <CHARACTER_CONSTANT> <INTEGER_CONSTANT> ...
C  ---------------------------------------------------------------------
------------------------------------------------------------------------^
D:\gmm20140411\gmm01f.f90(8) : Error: Syntax error, found END-OF-STATEMENT when expecting one of: ( : % . = =>
C
-^
D:\gmm20140411\gmm01f.f90(9) : Error: Syntax error, found IDENTIFIER 'THE' when expecting one of: ( : % . = =>
C  The scattering formulation and numerical techniques used in this 
---^
D:\gmm20140411\gmm01f.f90(10) : Error: Syntax error, found IDENTIFIER 'CODE' when expecting one of: ( : % . = =>
C  code can be found in the following references:
---^
D:\gmm20140411\gmm01f.f90(11) : Error: Syntax error, found IDENTIFIER 'CRUZAN' when expecting one of: ( % . = =>
C  (1) Cruzan, Q. Appl. Math. 20, 33 (1962)
-------^
D:\gmm20140411\gmm01f.f90(11) : Error: Syntax error, found INTEGER_CONSTANT '20' when expecting one of: <IDENTIFIER>
C  (1) Cruzan, Q. Appl. Math. 20, 33 (1962)
------------------------------^
D:\gmm20140411\gmm01f.f90(12) : Error: Syntax error, found IDENTIFIER 'BRUNING' when expecting one of: ( % . = =>
C  (2) Bruning and Lo, IEEE Trans. Anten. Prop. AP-19, 378 (1971)
-------^
D:\gmm20140411\gmm01f.f90(13) : Error: Syntax error, found IDENTIFIER 'FULLER' when expecting one of: ( : % . = =>
C      Fuller and Kattawar, Opt. Lett. 13, 90 & 1063 (1988)
-------^
D:\gmm20140411\gmm01f.f90(14) : Error: Syntax error, found IDENTIFIER 'MACKOWSKI' when expecting one of: ( : % . = =>
C      Mackowski, Proc. R. Soc. Lond. A 433, 599 (1991)
-------^
D:\gmm20140411\gmm01f.f90(14) : Error: Syntax error, found INTEGER_CONSTANT '433' when expecting one of: ( * :: , <END-OF-STATEMENT> ; : ) + . - (/ [ ] /) ' . ** / > ...
C      Mackowski, Proc. R. Soc. Lond. A 433, 599 (1991)
----------------------------------------^
D:\gmm20140411\gmm01f.f90(15) : Error: Syntax error, found IDENTIFIER 'WANG' when expecting one of: ( : % . = =>
C      Wang and van der Hulst, Appl. Opt. 30, 106 (1991)
-------^
D:\gmm20140411\gmm01f.f90(16) : Error: Syntax error, found IDENTIFIER 'H' when expecting one of: ( : % . = =>
C      H.A. van der Vorst, SIAM, J. Sci. Stat. Comput. 13, 631 (1992)
-------^
D:\gmm20140411\gmm01f.f90(16) : Error: Syntax error, found IDENTIFIER 'DER' when expecting one of: ( * :: , <END-OF-STATEMENT> ; : ) + . - (/ [ ] /) ' . ** / > ...
C      H.A. van der Vorst, SIAM, J. Sci. Stat. Comput. 13, 631 (1992)
----------------^
D:\gmm20140411\gmm01f.f90(16) : Error: Syntax error, found INTEGER_CONSTANT '13' when expecting one of: <IDENTIFIER>
C      H.A. van der Vorst, SIAM, J. Sci. Stat. Comput. 13, 631 (1992)
-------------------------------------------------------^
D:\gmm20140411\gmm01f.f90(17) : Error: Syntax error, found IDENTIFIER 'XU' when expecting one of: ( % . = =>
C  (3) Xu, Appl. Opt. 34, 4573 (1995), errata, ibid. 37, 6494 (1998)  
-------^
D:\gmm20140411\gmm01f.f90(17) : Error: Syntax error, found INTEGER_CONSTANT '34' when expecting one of: <IDENTIFIER>
C  (3) Xu, Appl. Opt. 34, 4573 (1995), errata, ibid. 37, 6494 (1998)  
----------------------^
D:\gmm20140411\gmm01f.f90(18) : Error: Invalid blank/tab
C          Appl. Opt. 36, 9496 (1997) 
----------------^
D:\gmm20140411\gmm01f.f90(18) : Error: Syntax error, found IDENTIFIER 'APPL' when expecting one of: ( : % . = =>
C          Appl. Opt. 36, 9496 (1997) 
-----------^
D:\gmm20140411\gmm01f.f90(18) : Error: Syntax error, found INTEGER_CONSTANT '36' when expecting one of: <IDENTIFIER>
C          Appl. Opt. 36, 9496 (1997) 
----------------------^
D:\gmm20140411\gmm01f.f90(19) : Error: Invalid blank/tab
C          Phys. Lett. A 249, 30 (1998)
----------------^
D:\gmm20140411\gmm01f.f90(19) : Error: Syntax error, found IDENTIFIER 'PHYS' when expecting one of: ( : % . = =>
C          Phys. Lett. A 249, 30 (1998)
-----------^
D:\gmm20140411\gmm01f.f90(19) : Error: Syntax error, found INTEGER_CONSTANT '249' when expecting one of: ( * :: , <END-OF-STATEMENT> ; : ) + . - (/ [ ] /) ' . ** / > ...
C          Phys. Lett. A 249, 30 (1998)
-------------------------^
(21) : Severe: Too many errors, exiting
Error executing df.exe.

gmm01f.obj - 30 error(s), 0 warning(s)