[updated 28.Aug.2000]

Librairie momeutil > Fichier morip2.f 

line
      SUBROUTINE MORIP2 (IANOP5,IAMAIL,NMAE)
line
  Auteur : D.Martin (Mai 1993)
  Derniere modification : D.Martin (2 Mars 1995)
  Version 1.0.0
 
  Translation d'adresse dans le tableau NOP5 d'une NOPO ou le tableau MAIL 
  d'une structure MAIL lors du passage a l'element suivant
line
      INTEGER IANOP5,IAMAIL,NMAE
line
      IF (IANOP5.GT.0) THEN
         IANOP5=IANOP5+NMAE
      ELSEIF (IAMAIL.GT.0) THEN
         IAMAIL=IAMAIL+NMAE
      ENDIF
                                                                    END !MoRip2
line
top