src/INTERPI/inter.f

   1       subroutine transit(compo)
   2
   3       include "calcium.hf"
   4
   5       dimension tparoi(100),tp(100)
   6       character*(INSTANCE_LEN)  nom_instance
   7       integer  info
   8       integer compo
   9 c
  10 c  boucle temporelle infinie
  11 c
  12       do while( .TRUE. )
  13 c
  14 c   lecture de la temperature de paroi a t
  15 c
  16       t=0.
  17         CALL cplRE(compo,CP_SEQUENTIEL,t, t, ii, 'tparoit', 100,
  18      &             nval, tparoi, info)
  19
  20         IF( info.NE.CPOK ) GO TO 9000
  21 c
  22 c  Ici on realise l'interpolation
  23 c
  24         do i=1,nval
  25           tp(i)=tparoi(i)
  26         enddo
  27 c
  28 c  ecriture de la temperature de paroi interpolee a t
  29 c
  30         write(6,*)'INTERP:temps=',t
  31         call flush(6)
  32
  33         CALL cpere(compo,CP_TEMPS, t, ii, 'tpart', nval,
  34      &             tp , info)
  35
  36         IF( info.NE.CPOK ) GO TO 9000
  37 c       if(t .gt. 100.)GO TO 9000
  38
  39       enddo
  40
  41 9000  continue
  42
  43             CALL cpfin(compo,CP_ARRET, info)
  44
  45       end