Examples/ast1/fcompo/compo.f

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