Examples/ast2/fcompo/compo.f

   1        PROGRAM P
   2        CALL YACSINIT()
   3        END
   4
   5        SUBROUTINE S1(compo,A,B,C,D,E,F)
   6        include 'calcium.hf'
   7        integer compo
   8        real*8 a,d(*),tt,tp,t0,t1,ss,zz
   9        integer b,e,dep,np
  10        character*(*) c,f
  11        character*8 tch(2)
  12        real yd
  13        real tcp(2)
  14        integer tlo(3)
  15
  16        open(UNIT=22,FILE='SORTIES')
  17        write(6,*)a,b,c,compo
  18        call flush(6)
  19
  20        t0=0.
  21        t1=1.
  22        iter=1
  23
  24        tt=1.5
  25        tp=2.3
  26        np=12
  27        yd=4.3
  28        tch(1)="coucou"
  29        tcp(1)=2.
  30        tcp(2)=4.
  31        tlo(1)=0
  32        tlo(2)=1
  33        tlo(3)=0
  34        CALL cpeDB(compo,CP_TEMPS,t0,1,'ba',1,tt,info)
  35        CALL cpeDB(compo,CP_ITERATION,t0,1,'bb',1,tp,info)
  36        CALL cpeen(compo,CP_ITERATION,t0,1,'bc',1,np,info)
  37        CALL cpere(compo,CP_ITERATION,t0,1,'bd',1,yd,info)
  38        CALL cpech(compo,CP_ITERATION,t0,1,'be',1,tch,info)
  39        CALL cpecp(compo,CP_ITERATION,t0,1,'bf',1,tcp,info)
  40        CALL cpelo(compo,CP_ITERATION,t0,1,'bg',3,tlo,info)
  41
  42        ss=0.
  43        CALL cpldb(compo,CP_TEMPS,t0,t1,iter,'a',1,n,ss,info)
  44        write(6,*)"apres cpldb(a) ",info,ss
  45        call flush(6)
  46
  47        zz=0.
  48        CALL cpldb(compo,CP_ITERATION,t0,t1,iter,'b',1,n,zz,info)
  49        write(6,*)"apres cpldb(b) ",info,zz
  50        call flush(6)
  51
  52        d(1)=4.5
  53        e=3
  54        f="zzzzzzzzzzzzzzz"
  55        write(6,*)d(1),e,f
  56        call flush(6)
  57        write(22,*)d(1),e,f
  58        call flush(22)
  59        END
  60
  61        SUBROUTINE S2(compo,A,B,C)
  62        integer compo
  63        real*8 a,b,c
  64        write(6,*)a,b
  65        call flush(6)
  66        c=a*b
  67        write(6,*)c
  68        call flush(6)
  69        END
  70
  71        SUBROUTINE S3(compo)
  72        include 'calcium.hf'
  73        integer compo
  74        real*8 tt,tp,t0,t1,ss,zz
  75        integer iter,n,info,zn
  76       CHARACTER*8 tch(2)
  77       real tcp(2)
  78       integer tlo(3)
  79
  80        t0=0.
  81        t1=1.
  82        tt=1.5
  83        tp=2.3
  84
  85        CALL cpeDB(compo,CP_TEMPS,t0,1,'ba',1,tt,info)
  86        CALL cpeDB(compo,CP_ITERATION,t0,1,'bb',1,tp,info)
  87        call flush(6)
  88        t0=0.
  89        t1=1.
  90        iter=1
  91
  92
  93        ss=0.
  94        CALL cpldb(compo,CP_TEMPS,t0,t1,iter,'aa',1,n,ss,info)
  95        write(6,*)"apres cpldb(aa) ",info,ss
  96        call flush(6)
  97
  98        zz=0.
  99        CALL cpldb(compo,CP_ITERATION,t0,t1,iter,'ab',1,n,zz,info)
 100        write(6,*)"apres cpldb(ab) ",info,zz
 101        call flush(6)
 102
 103        CALL cplen(compo,CP_ITERATION,t0,t1,iter,'ac',1,n,zn,info)
 104        write(6,*)"apres cplen(ac) ",info,zn
 105        call flush(6)
 106        CALL cplre(compo,CP_ITERATION,t0,t1,iter,'ad',1,n,yr,info)
 107        write(6,*)"apres cplre(ad) ",info,yr
 108        call flush(6)
 109        CALL cplch(compo,CP_ITERATION,t0,t1,iter,'ae',1,n,tch,info)
 110        write(6,*)"apres cplch(ae) ",info,tch(1)
 111        call flush(6)
 112        CALL cplcp(compo,CP_ITERATION,t0,t1,iter,'af',1,n,tcp,info)
 113        write(6,*)"apres cplcp(af) ",info,tcp(1),tcp(2)
 114        call flush(6)
 115        CALL cpllo(compo,CP_ITERATION,t0,t1,iter,'ag',3,n,tlo,info)
 116        write(6,*)"apres cpllo(ag) ",info,tlo(1),tlo(2),tlo(3)
 117        call flush(6)
 118
 119        END
 120