Esope source files

   1 : C RSETIV    SOURCE    CHAT      05/01/13    03:07:43     5004           
   2 :       SUBROUTINE RSETIV(V,NC,KK,T,NT)
   3 :       IMPLICIT INTEGER(I-N)
   4 :       IMPLICIT REAL*8 (A-H,O-Z)
   5 :       REAL*8 V(NC,*),T(*)
   6 : 
   7 :       IF(NT.GT.NC)THEN
   8 :       WRITE(6,*)' ERREUR SUR LES DIMENSIONS DANS RSETIV ! ! !'
   9 :       RETURN
  10 :       ENDIF
  11 : 
  12 :       DO 1 I=1,NT
  13 :       V(I,KK)=T(I)
  14 :  1    CONTINUE
  15 : 
  16 :       RETURN
  17 :       END
  18 :