Examples/ast2/fcompo/compo.f

   1 C Copyright (C) 2009-2013  EDF R&D
   2 C
   3 C This library is free software; you can redistribute it and/or
   4 C modify it under the terms of the GNU Lesser General Public
   5 C License as published by the Free Software Foundation; either
   6 C version 2.1 of the License.
   7 C
   8 C This library is distributed in the hope that it will be useful,
   9 C but WITHOUT ANY WARRANTY; without even the implied warranty of
  10 C MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  11 C Lesser General Public License for more details.
  12 C
  13 C You should have received a copy of the GNU Lesser General Public
  14 C License along with this library; if not, write to the Free Software
  15 C Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307 USA
  16 C
  17 C See http://www.salome-platform.org/ or email : webmaster.salome@opencascade.com
  18 C
  19
  20        PROGRAM P
  21        CALL YACSINIT()
  22        END
  23
  24        SUBROUTINE S1(compo,A,B,C,D,E,F)
  25        include 'calcium.hf'
  26        integer compo
  27        real*8 a,d(*),tt,tp,t0,t1,ss,zz
  28        integer b,e,dep,np
  29        character*(*) c,f
  30        character*8 tch(2)
  31        real yd
  32        real tcp(2)
  33        integer tlo(3)
  34
  35        open(UNIT=22,FILE='SORTIES')
  36        write(6,*)a,b,c,compo
  37        call flush(6)
  38
  39        t0=0.
  40        t1=1.
  41        iter=1
  42
  43        tt=1.5
  44        tp=2.3
  45        np=12
  46        yd=4.3
  47        tch(1)="coucou"
  48        tcp(1)=2.
  49        tcp(2)=4.
  50        tlo(1)=0
  51        tlo(2)=1
  52        tlo(3)=0
  53        CALL cpeDB(compo,CP_TEMPS,t0,1,'ba',1,tt,info)
  54        CALL cpeDB(compo,CP_ITERATION,t0,1,'bb',1,tp,info)
  55        CALL cpeen(compo,CP_ITERATION,t0,1,'bc',1,np,info)
  56        CALL cpere(compo,CP_ITERATION,t0,1,'bd',1,yd,info)
  57        CALL cpech(compo,CP_ITERATION,t0,1,'be',1,tch,info)
  58        CALL cpecp(compo,CP_ITERATION,t0,1,'bf',1,tcp,info)
  59        CALL cpelo(compo,CP_ITERATION,t0,1,'bg',3,tlo,info)
  60
  61        ss=0.
  62        CALL cpldb(compo,CP_TEMPS,t0,t1,iter,'a',1,n,ss,info)
  63        write(6,*)"apres cpldb(a) ",info,ss
  64        call flush(6)
  65
  66        zz=0.
  67        CALL cpldb(compo,CP_ITERATION,t0,t1,iter,'b',1,n,zz,info)
  68        write(6,*)"apres cpldb(b) ",info,zz
  69        call flush(6)
  70
  71        d(1)=4.5
  72        e=3
  73        f="zzzzzzzzzzzzzzz"
  74        write(6,*)d(1),e,f
  75        call flush(6)
  76        write(22,*)d(1),e,f
  77        call flush(22)
  78        END
  79
  80        SUBROUTINE S2(compo,A,B,C)
  81        integer compo
  82        real*8 a,b,c
  83        write(6,*)a,b
  84        call flush(6)
  85        c=a*b
  86        write(6,*)c
  87        call flush(6)
  88        END
  89
  90        SUBROUTINE S3(compo)
  91        include 'calcium.hf'
  92        integer compo
  93        real*8 tt,tp,t0,t1,ss,zz
  94        integer iter,n,info,zn
  95       CHARACTER*8 tch(2)
  96       real tcp(2)
  97       integer tlo(3)
  98
  99        t0=0.
 100        t1=1.
 101        tt=1.5
 102        tp=2.3
 103
 104        CALL cpeDB(compo,CP_TEMPS,t0,1,'ba',1,tt,info)
 105        CALL cpeDB(compo,CP_ITERATION,t0,1,'bb',1,tp,info)
 106        call flush(6)
 107        t0=0.
 108        t1=1.
 109        iter=1
 110
 111
 112        ss=0.
 113        CALL cpldb(compo,CP_TEMPS,t0,t1,iter,'aa',1,n,ss,info)
 114        write(6,*)"apres cpldb(aa) ",info,ss
 115        call flush(6)
 116
 117        zz=0.
 118        CALL cpldb(compo,CP_ITERATION,t0,t1,iter,'ab',1,n,zz,info)
 119        write(6,*)"apres cpldb(ab) ",info,zz
 120        call flush(6)
 121
 122        CALL cplen(compo,CP_ITERATION,t0,t1,iter,'ac',1,n,zn,info)
 123        write(6,*)"apres cplen(ac) ",info,zn
 124        call flush(6)
 125        CALL cplre(compo,CP_ITERATION,t0,t1,iter,'ad',1,n,yr,info)
 126        write(6,*)"apres cplre(ad) ",info,yr
 127        call flush(6)
 128        CALL cplch(compo,CP_ITERATION,t0,t1,iter,'ae',1,n,tch,info)
 129        write(6,*)"apres cplch(ae) ",info,tch(1)
 130        call flush(6)
 131        CALL cplcp(compo,CP_ITERATION,t0,t1,iter,'af',1,n,tcp,info)
 132        write(6,*)"apres cplcp(af) ",info,tcp(1),tcp(2)
 133        call flush(6)
 134        CALL cpllo(compo,CP_ITERATION,t0,t1,iter,'ag',3,n,tlo,info)
 135        write(6,*)"apres cpllo(ag) ",info,tlo(1),tlo(2),tlo(3)
 136        call flush(6)
 137
 138        END
 139