SP4TE 

      SUBROUTINE SP4TE(NX,NY,X,DIMX,Y,DIMY,Z,DIMZ,C,DIMC,
     s  TIT1,TIT2,TIT3,
     s  CTITH,CTITG,CTITB,CTITD,
     s  TEX1,TEX2,TEX3,TEX4,NOMSP3)
      integer nx,ny,dimx,dimy,dimz,dimc
      real x(dimx,*),y(dimy,*),z(dimz,*),c(dimc,*)
      character*(*) tit1,tit2,tit3
      character*(*) ctith,ctitg,ctitb,ctitd
      character*(*) tex1,tex2,tex3,tex4
      character*(*) nomsp3

      SUBROUTINE SP4TED(NX,NY,X,DIMX,Y,DIMY,Z,DIMZ,C,DIMC,
     s  TIT1,TIT2,TIT3,
     s  CTITH,CTITG,CTITB,CTITD,
     s  TEX1,TEX2,TEX3,TEX4,NOMSP3)
      integer nx,ny,dimx,dimy,dimz,dimc
      double precision x(dimx,*),y(dimy,*),z(dimz,*),c(dimc,*)
      character*(*) tit1,tit2,tit3
      character*(*) ctith,ctitg,ctitb,ctitd
      character*(*) tex1,tex2,tex3,tex4
      character*(*) nomsp3

      SUBROUTINE SP4TE4(NX,NY,X,DIMX,Y,DIMY,Z,DIMZ,C,DIMC,
     s  TIT1,TIT2,TIT3,
     s  CTITH,CTITG,CTITB,CTITD,
     s  TEX1,TEX2,TEX3,TEX4,NOMSP3)
      integer nx,ny,dimx,dimy,dimz,dimc
      real*4 x(dimx,*),y(dimy,*),z(dimz,*),c(dimc,*)
      character*(*) tit1,tit2,tit3
      character*(*) ctith,ctitg,ctitb,ctitd
      character*(*) tex1,tex2,tex3,tex4
      character*(*) nomsp3

      SUBROUTINE SP4TE8(NX,NY,X,DIMX,Y,DIMY,Z,DIMZ,C,DIMC,
     s  TIT1,TIT2,TIT3,
     s  CTITH,CTITG,CTITB,CTITD,
     s  TEX1,TEX2,TEX3,TEX4,NOMSP3)
      integer nx,ny,dimx,dimy,dimz,dimc
      real*8 x(dimx,*),y(dimy,*),z(dimz,*),c(dimc,*)
      character*(*) tit1,tit2,tit3
      character*(*) ctith,ctitg,ctitb,ctitd
      character*(*) tex1,tex2,tex3,tex4
      character*(*) nomsp3

Cette routine à les mêmes arguments que la précédente mais nomsp3 doit être un nom de fichier disque.

Cett routine génére un fichier au format ASCII de Narcisse compressé par compress d'UNIX dont le nom se termine par .sp3.Z (généré automatiquement si le nom fourni ne se termine pas par cette chaîne de caractères).

N.B. avec les nouveaux points d'entrés, il suffit d'appeler SPX4TEC avec un nom de fichier du genre | compress > toto.sp3.Z pour avoir le même résultat hors configuration. La configuration est alors envoyée par les routines d'envoi de configurations.