writing a module file in gfortran 14

Liste des GroupesRevenir à cl fortran 
Sujet : writing a module file in gfortran 14
De : lynnmcguire5 (at) *nospam* gmail.com (Lynn McGuire)
Groupes : comp.lang.fortran
Date : 04. Dec 2024, 00:02:59
Autres entêtes
Organisation : A noiseless patient Spider
Message-ID : <vio2n4$d19a$1@dont-email.me>
User-Agent : Mozilla Thunderbird
Is the "implicit none" in the proper place in the following code ?  I misspelled an argument name declaration and gfortran 14 did not complain when compiling my module file.  However, it implicitly declared the argument variable to be real*4 and then complained when it compiled my subroutine code that the subroutine was declared differently.
      module aaa_modules
           implicit none
           INTERFACE
             SUBROUTINE ABCPAR(ISW,IRETST,IR,IC,PAR,IPHASE)
               INTEGER(KIND=8) :: ISW
               INTEGER(KIND=8) :: IRETST
               INTEGER(KIND=8) :: IR
               INTEGER(KIND=8) :: IC
               REAL(KIND=8) :: PAR
               INTEGER(KIND=8) :: IPHASE
             END SUBROUTINE ABCPAR
           END INTERFACE
           INTERFACE
             SUBROUTINE ABSR(NIN,NOUT,NOCOMP,NEQP,NDSP,SIVPFR,SITEMP,    &
      &SIPRES,SIENTH,SIENTR,SIMOLE,SICOMP,SIKV,SOVPFR,SOTEMP,SOPRES,     &
      &SOENTH,SOENTR,SOMOLE,SOCOMP,SOKV,EQPAR,DESPAR)
               INTEGER(KIND=8) :: NDSP
               INTEGER(KIND=8) :: NEQP
               INTEGER(KIND=8) :: NOCOMP
               INTEGER(KIND=8) :: NOUT
               INTEGER(KIND=8) :: NIN
               REAL(KIND=8) :: SIVPFR(NIN)
               REAL(KIND=8) :: SITEMP(NIN)
               REAL(KIND=8) :: SIPRES(NIN)
               REAL(KIND=8) :: SIENTH(NIN)
               REAL(KIND=8) :: SIENTR(NIN)
               REAL(KIND=8) :: SIMOLE(NIN)
               REAL(KIND=8) :: SICOMP(NOCOMP,NIN)
               REAL(KIND=8) :: SIKV(NOCOMP,NIN)
               REAL(KIND=8) :: SOVPFR(NOUT)
               REAL(KIND=8) :: SOTEMP(NOUT)
               REAL(KIND=8) :: SOPRES(NOUT)
               REAL(KIND=8) :: SOENTH(NOUT)
               REAL(KIND=8) :: SOENTR(NOUT)
               REAL(KIND=8) :: SOMOLE(NOUT)
               REAL(KIND=8) :: SOCOMP(NOCOMP,NOUT)
               REAL(KIND=8) :: SOKV(NOCOMP,NOUT)
               REAL(KIND=8) :: EQPAR(NEQP)
               REAL(KIND=8) :: DESPAR(NDSP)
             END SUBROUTINE ABSR
           END INTERFACE
...
Thanks,
Lynn

Date Sujet#  Auteur
4 Dec 24 * writing a module file in gfortran 1411Lynn McGuire
4 Dec 24 `* Re: writing a module file in gfortran 1410Thomas Koenig
4 Dec 24  +* Re: writing a module file in gfortran 148Lynn McGuire
5 Dec 24  i`* Re: writing a module file in gfortran 147Gary Scott
5 Dec 24  i +* Re: writing a module file in gfortran 145Lawrence D'Oliveiro
5 Dec 24  i i+- Re: writing a module file in gfortran 141Gary Scott
5 Dec 24  i i+- Re: writing a module file in gfortran 141Lynn McGuire
7 Dec 24  i i`* Re: writing a module file in gfortran 142Steven G. Kargl
7 Dec 24  i i `- Re: writing a module file in gfortran 141Lawrence D'Oliveiro
8 Dec 24  i `- Re: writing a module file in gfortran 141Lynn McGuire
7 Dec 24  `- Re: writing a module file in gfortran 141Steven G. Kargl

Haut de la page

Les messages affichés proviennent d'usenet.

NewsPortal