Télécharger inipro.eso

Retour à la liste

Numérotation des lignes :

  1. C INIPRO SOURCE CB215821 19/11/15 21:15:25 10378
  2.  
  3. SUBROUTINE INIPRO (cnompr,mbloT)
  4. IMPLICIT INTEGER(I-N)
  5.  
  6. -INC PPARAM
  7. -INC CCOPTIO
  8. -INC SMBLOC
  9. -INC CCNOYAU
  10. -INC CCASSIS
  11. CHARACTER*8 MOBLO,ichp
  12. CHARACTER*(LONOM) cnompr
  13. LOGICAL IPREM,IDEU
  14. SEGMENT ITTRAM
  15. INTEGER IJTRAM(NHU)
  16. ENDSEGMENT
  17. DATA MOBLO/'BLOC '/
  18.  
  19. if(iimpi.eq.1754) then
  20. write(ioimp,*) ' initialisation de la procedur ', cnompr
  21. endif
  22. if(nbesc.ne.0) segact ipiloc
  23. NHU=IPCHAR(/1)
  24. SEGINI ITTRAM
  25. IDE1 = 1
  26. * IDE2 = MFIOBJ +1
  27. IFI1 = MDEOBJ-1
  28. * IFI2 = INOOB1(/1)
  29. IPREM =.TRUE.
  30. IF(MDEOBJ.EQ.1) IPREM=.FALSE.
  31. * IDEU=.TRUE.
  32. * IF(MFIOBJ.EQ.IFI2) IDEU = .FALSE.
  33. * IF(IDEU) THEN
  34. * DO 3 J=IDE2,IFI2
  35. * INO=INOOB1(J)
  36. * IF (INO.NE.0) IJTRAM(INO)= J
  37. * 3 CONTINUE
  38. * ENDIF
  39. IF( IPREM) THEN
  40. DO 2 J=IDE1,IFI1
  41. INO=INOOB1(J)
  42. IJTRAM(INO)= J
  43. 2 CONTINUE
  44. ENDIF
  45. DO 1 I=MDEOBJ,MFIOBJ
  46. INO= INOOB1(I)
  47. IDEBCH=IPCHAR(INO)
  48. IFINCH=IPCHAR(INO+1)-1
  49. IF ( ICHARA(IDEBCH:IDEBCH).EQ.'!') THEN
  50. INOOB2(I)='ANNULE'
  51. GO TO 1
  52. ENDIF
  53. IF ( ICHARA(IDEBCH:IFINCH).EQ.' ') GO TO 1
  54. * if( ICHARA(IDEBCH:IFINCH).EQ.cnompr) then
  55. * inoob2(i)='PROCEDUR'
  56. * iouep2(i)=
  57. * go to 1
  58. * endif
  59. IF(INOOB2(I).EQ.MOBLO) GO TO 1
  60. if(inoob2(i).eq.'PROCEDUR') go to 1
  61. IF(IJTRAM(INO).NE.0) THEN
  62. J=IJTRAM(INO)
  63. ichp=INOOB2(I)
  64. INOOB2(I)=INOOB2(J)
  65. IOUEP2(I)=IOUEP2(J)
  66. if (iimpi.eq.1754) then
  67. write(ioimp,*)'initialisation ',ICHARA(IDEBCH:IFINCH),' ',
  68. $ INOOB2(I),' ',ichp,iouep2(i)
  69. endif
  70. ENDIF
  71. 1 CONTINUE
  72. if(nbesc.ne.0) SEGDES,IPILOC
  73. SEGSUP ITTRAM
  74. RETURN
  75. END
  76.  
  77.  
  78.  
  79.  
  80.  
  81.  
  82.  
  83.  

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