SP2MO 

      SUBROUTINE SP2MO(X,Y,NX,TIT1,TIT2,
     s  CTITH,CTITG,CTITB,CTITD,
     s  TEX1,TEX2,TEX3,TEX4,NOMSP3)
      real x(*),y(*)
      integer nx
      character*(*) tit1,tit2
      character*(*) ctith,ctitg,ctitb,ctitd
      character*(*) tex1,tex2,tex3,tex4
      character*(*) nomsp3

      SUBROUTINE SP2MOD(X,Y,NX,TIT1,TIT2,
     s  CTITH,CTITG,CTITB,CTITD,
     s  TEX1,TEX2,TEX3,TEX4,NOMSP3)
      double precision x(*),y(*)
      integer nx
      character*(*) tit1,tit2
      character*(*) ctith,ctitg,ctitb,ctitd
      character*(*) tex1,tex2,tex3,tex4
      character*(*) nomsp3

      SUBROUTINE SP2MO4(X,Y,NX,TIT1,TIT2,
     s  CTITH,CTITG,CTITB,CTITD,
     s  TEX1,TEX2,TEX3,TEX4,NOMSP3)
      real*4 x(*),y(*)
      integer nx
      character*(*) tit1,tit2
      character*(*) ctith,ctitg,ctitb,ctitd
      character*(*) tex1,tex2,tex3,tex4
      character*(*) nomsp3

      SUBROUTINE SP2MO8(X,Y,NX,TIT1,TIT2,
     s  CTITH,CTITG,CTITB,CTITD,
     s  TEX1,TEX2,TEX3,TEX4,NOMSP3)
      real*8 x(*),y(*)
      integer nx
      character*(*) tit1,tit2
      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 SPX2MOC avec un nom de fichier du genre | compress > toto.sp3.Z pour avoir le même résultat hors configuration. La configuration est envoyée par les routines d'envoi de configurations.