TYPE declaration/statement in Fortran 77 code
- From: wim <wim.van.hoydonck@xxxxxxxxx>
- Date: Wed, 11 Jun 2008 06:12:58 -0700 (PDT)
Hi there,
I have a piece of code (Fortran 77) that contains a lot of these TYPE
declarations:
SUBROUTINE VTXSET( RNBLD, RNPHI, RNPSI, RNSEG, AGL, CDGR,
& IFFRE, IFLAG, KREV, PFRL, RADIUS, RGUP, ROTDIR,
& DAMPF, IUPF, OPTION, ROTATE, SCPSI )
*
C*****************************************************************************
C
IMPLICIT NONE
C
C I/O variable
C
INTEGER*4 NBLD
INTEGER*4 NPHI
INTEGER*4 NPSI
INTEGER*4 NSEG
C
TYPE AGL
TYPE CDGR(1)
TYPE DAMPF
TYPE IFFRE
TYPE IFLAG(30)
TYPE IUPF(3)
TYPE KREV
TYPE OPTION(1)
TYPE PFRL(1)
TYPE RNBLD
TYPE RNPHI
TYPE RNPSI
TYPE RNSEG
TYPE RADIUS
TYPE RGUP
TYPE ROTATE
TYPE ROTDIR
TYPE SCPSI(2,1)
As such, it doesn't compile with any compiler I tried (gfortran, g95
and ifort). Doing
:%s/TYPE/REAL/g
makes it compilable with ifort.
I couldn't find anything related to TYPE declarations in this context,
so I suspect it's not standard fortran.
Anyone knows what they are good for?
Greetings,
Wim
.
- Follow-Ups:
- Re: TYPE declaration/statement in Fortran 77 code
- From: robert . corbett
- Re: TYPE declaration/statement in Fortran 77 code
- From: mecej4
- Re: TYPE declaration/statement in Fortran 77 code
- Prev by Date: Re: save statement in a module
- Next by Date: Re: .mbx and fortran
- Previous by thread: Re: Identifier name length in g77
- Next by thread: Re: TYPE declaration/statement in Fortran 77 code
- Index(es):
Relevant Pages
|
|