Discussion :

[Flow_75]

Bonjour,

J'aurais une question concernant la déclaration des subroutines en F90.

J'ai un programme qui déclare les subroutines comme cette facon :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
subroutine Transitorio_Reattivita(
     I                                  sumT,Nsttr,dimTR,Transit_Reattivita,t_0,t_f,dT,T,dbg,
     I                                   dimSTEPR,t_step_R,A_step_R,
     I                                   dimRAMPAR,t_ramp_0_R,t_ramp_f_R,A_rampa_R,
     M                                   ro)

Et qui compile bien sous pgf90.

On essaye de porter le code sous Ifort, mais toutes les déclarations ne passe que si on les transforme de cette facon :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
subroutine Transitorio_Sorgente(sumT,Nsttr,dimT_S,Transit_Sorgente,t_0,t_f,dT,T,dbg,dimSTEPS,t_step_S,A_step_S,dimRAMPAS,t_ramp_0_S,t_ramp_f_S,A_rampa_S,Q_ext)
 
      implicit none
 
      integer :: k
      double precision, dimension(:), allocatable :: Q_ext_StepS,Q_ext_RampaS
 
 
      integer, intent(in) :: Nsttr,dimT_S,sumT
      integer, intent(in) :: T(Nsttr),dimSTEPS,dimRAMPAS,dbg
      double precision, dimension(dimSTEPS), intent(in) :: t_step_S,A_step_S
      double precision, dimension(dimRAMPAS), intent(in) :: t_ramp_0_S,t_ramp_f_S,A_rampa_S
      double precision, dimension(Nsttr),intent(in)  :: t_0,t_f,dT
      double precision, dimension(Nsttr), intent(inout) :: Q_ext(sumT)
      character(len=5), intent(in) :: Transit_Sorgente(dimT_S)

Pourquoi le Ifort n'accepte pas la premiere notation ?

Merci pour le renseignement.

[Sylvain Bergeron]

Un peu bizarre ton code initial. Les I et M en colonne 6 semble être des caractères de continuité, mais subroutine commence à la colonne 1. Peut-être est-ce simplement la copie du code dans le forum qui a déplacé subroutine vers la gauche... En résumé, ton code initial (sous réserve de la position de subroutine) est en format fixe.

Normalement, le format fixe découle d'un fichier ayant l'extension .f alors que le format libre découle de l'extension .f90. Il est aussi possible de forcer le format avec une switch de compilation, pour rendre le format indépendant de l'extension.

[Flow_75]

Merci de l'information.

Une derniere question pour ce probleme.

Comment définir un parametre d'entrée en lecture seule ?

Faut il utiliser : intent(in) ?

[Sylvain Bergeron]

Avec la clause intent :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Subroutine ABC(LectureSeule, EcritureSeule, LectureEcriture)
   integer, intent(in) ::    LectureSeule
   real,    intent(out) ::   EcritureSeule
   logical, intent(inout) :: LectureEcriture
...