Télécharger la plaquette Cast3M


fr en

Télécharger oooadg.eso

Retour à la liste

Numérotation des lignes : 

oooadg

  1. C OOOADG    SOURCE    PV090527  26/05/11    21:15:19     1245           
  2.       SUBROUTINE OOOADG (ISSG,TYLN,NELM,IDOB,IDOA)
  3. C----------------------------------------------------------------------
  4. C
  5. C     INTERFACE entre OOOADJ et OOOADI (ancien OOOADG)       
  6. C     POUR POUVOIR METTRE OOOADG EN FORTRAN PUR                 
  7. C     ATTENTION, NE PASSE PAS EN CONTROL A CAUSE DES
  8. C     TABLEAUX DE LONGUEUR NULLE                      
  9. C
  10.  
  11.       MACRO ,      ( LOGICAL    , LOGICAL 2  , LOGICAL 1
  12.      2             , INTEGER    , INTEGER 2  , INTEGER 1
  13.      3             , REAL       , REAL    8  , REAL   16
  14.      4             , COMPLEX    , COMPLEX16  , COMPLEX32
  15.      5             , CHARACTER  )
  16. C
  17.       SEGMENT      , LLL(0)*L   , LL2(0)*L2  , LL1(0)*L1
  18.       SEGMENT      , III(0)*I   , II2(0)*I2  , II1(0)*I1
  19.       SEGMENT      , RRR(0)*R   , RR8(0)* D  , R16(0)* Q
  20.       SEGMENT      , CCC(0)*C   , C16(0)*CD  , C32(0)*CQ
  21.       SEGMENT /SCH/ (CAR   *(1))
  22.  
  23.       EQUIVALENCE  ( LLL        , LL2        , LL1       ,ISEG)
  24.       EQUIVALENCE  ( III        , II2        , II1       ,ISEG)
  25.       EQUIVALENCE  ( RRR        , RR8        , R16       ,ISEG)
  26.       EQUIVALENCE  ( CCC        , C16        , C32       ,ISEG)
  27.       EQUIVALENCE  ( SCH                                 ,ISEG)
  28. C
  29.  
  30.       CHARACTER*1 H1
  31.       INTEGER     TYLN
  32.       SEGMENT ,   ISSG(0)*I   , ISEG(0)*I
  33. C
  34.       ISEG=ISSG
  35.  
  36.       CALL OOOADI (LLL(1),LL2(1),LL1(1),III(1),II2(1),II1(1),RRR(1),
  37.      > RR8(1),R16(1),CCC(1),C16(1),C32(1),CAR(1:1),TYLN,NELM,IDOB,IDOA)
  38.  
  39.                                                        RETURN
  40. C-----------------------------------------------------------------------
  41. C
  42. C                   DECALAGE A DROITE POUR OOOYAD
  43. C            XXX(IDOB+I)=XXX(IDOA+I)  POUR : I=NELM,1,-1
  44. C
  45.       ENTRY      OOOADD (ISSG,TYLN,NELM,IDOB,IDOA)
  46. C
  47.       ISEG=ISSG
  48.  
  49.       CALL OOOADH (LLL(1),LL2(1),LL1(1),III(1),II2(1),II1(1),RRR(1),
  50.      > RR8(1),R16(1),CCC(1),C16(1),C32(1),CAR(1:1),TYLN,NELM,IDOB,IDOA)
  51.                                                        RETURN
  52. C-----------------------------------------------------------------------
  53. C
  54. C                   REMISE A 0 OU BLANC POUR OOOYAD
  55. C                 XXX(IDOB+I)= NULL?  POUR : I=1,NELM
  56. C
  57.       ENTRY      OOOADZ (ISSG,TYLN,NELM,IDOB)
  58. C
  59.       ISEG=ISSG
  60.       CALL OOOADY (LLL(1),LL2(1),LL1(1),III(1),II2(1),II1(1),RRR(1),
  61.      > RR8(1),R16(1),CCC(1),C16(1),C32(1),CAR(1:1),TYLN,NELM,IDOB)
  62.                                                        RETURN
  63.       END
  64.  
  65.  
  66.  
  67.  
  68.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales