Esope source files

   1 : C MAKPMT    SOURCE    MAGN      09/07/30    21:19:11     6458           
   2 :       SUBROUTINE MAKPMT(PMC,
   3 :      $     PMCCT,
   4 :      $     IMPR,IRET)
   5 :       IMPLICIT INTEGER(I-N)
   6 :       IMPLICIT REAL*8 (A-H,O-Z)
   7 : C***********************************************************************
   8 : C NOM         : MAKPMT
   9 : C PROJET      : Noyau linéaire NLIN
  10 : C DESCRIPTION : Construction du profil Morse (non ordonné) de (C + Ct) à
  11 : C               partir du profil Morse (non ordonné) de C.  
  12 : C
  13 : C LANGAGE     : ESOPE
  14 : C AUTEUR      : Stéphane GOUNAND (CEA/DRN/DMT/SEMT/LTMF)
  15 : C               mél : gounand@semt2.smts.cea.fr
  16 : C***********************************************************************
  17 : C APPELES          : TRPMOR, FUSPRM
  18 : C APPELE PAR       : PRASEM
  19 : C***********************************************************************
  20 : C ENTREES            : PMC
  21 : C SORTIES            : PMCCT
  22 : C CODE RETOUR (IRET) : = 0 si tout s'est bien passé
  23 : C***********************************************************************
  24 : C VERSION    : v1, 13/12/99, version 1
  25 : C HISTORIQUE : v1, 13/12/99, création
  26 : C HISTORIQUE :
  27 : C***********************************************************************
  28 : C Prière de PRENDRE LE TEMPS de compléter les commentaires
  29 : C en cas de modification de ce sous-programme afin de faciliter
  30 : C la maintenance !
  31 : C***********************************************************************
  32 : -INC CCOPTIO
  33 : -INC SMMATRIK
  34 :       INTEGER NTT,NJA
  35 :       POINTEUR PMC.PMORS
  36 :       POINTEUR PMCT.PMORS
  37 :       POINTEUR PMCCT.PMORS
  38 : *
  39 :       INTEGER IMPR,IRET
  40 : *
  41 : * Executable statements
  42 : *
  43 :       IF (IMPR.GT.5) WRITE(IOIMP,*) 'Entrée dans makpmt'
  44 :       SEGACT,PMC
  45 :       NTT=PMC.IA(/1)-1
  46 :       NJA=PMC.JA(/1)
  47 :       SEGINI,PMCT
  47 :       CALL TRPMOR(NTT,NJA,PMC.JA,PMC.IA,
  48 :      $     PMCT.JA,PMCT.IA,
  49 :      $     IMPR,IRET)
  50 :       IF (IRET.NE.0) GOTO 9999
  51 :       SEGDES PMCT
  52 :       SEGDES PMC
  53 : * In FUSPRM : SEGINI PMCCT
  53 :       CALL FUSPRM(PMC,PMCT,
  54 :      $     PMCCT,
  55 :      $     IMPR,IRET)
  56 :       IF (IRET.NE.0) GOTO 9999
  57 :       SEGSUP PMCT
  58 : *
  59 : * Normal termination
  60 : *
  61 :       IRET=0
  62 :       RETURN
  63 : *
  64 : * Format handling
  65 : *
  66 : *
  67 : * Error handling
  68 : *
  69 :  9999 CONTINUE
  70 :       IRET=1
  71 :       WRITE(IOIMP,*) 'An error was detected in subroutine makpmt'
  72 :       RETURN
  73 : *
  74 : * End of subroutine MAKPMT
  75 : *
  76 :       END
  77 : 
  78 :  
  79 :  
  80 :  
  81 :