src/INTERPI/interi.f

   1       subroutine perma(compo)
   2       include "calcium.hf"
   3
   4       dimension tparoi(100),tp(100)
   5       character*(INSTANCE_LEN) nom_instance
   6       integer info
   7       integer compo
   8
   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         CALL cplRE(compo,CP_SEQUENTIEL,t, t, ii, 'tparoi', 100,
  17      &             nval, tparoi, info)
  18
  19         IF( info.NE. CPOK  ) GO TO 9000
  20 c
  21 c  Ici on realise l'interpolation
  22 c
  23         do i=1,nval
  24           tp(i)=tparoi(i)
  25         enddo
  26 c
  27 c  ecriture de la temperature de paroi interpolee a t
  28 c
  29         CALL cpeRE(compo,CP_ITERATION, t, ii, 'tpar', nval,
  30      &             tp , info)
  31
  32         IF( info.NE.CPOK ) GO TO 9000
  33 c       if(ii .GE. 24)GO TO 9000
  34
  35       enddo
  36
  37 9000  continue
  38             CALL cpfin(compo,CP_ARRET, info)
  39       end