SP3PR 

      SUBROUTINE SP3PR(NX,NY,Z,DIMZ,NOMSP3)
      integer nx,ny,dimz
      real z(dimz,*)
      character*(*) nomps3

      SUBROUTINE SP3PRD(NX,NY,Z,DIMZ,NOMSP3)
      integer nx,ny,dimz
      double precision z(dimz,*)
      character*(*) nomps3

      SUBROUTINE SP3PR4(NX,NY,Z,DIMZ,NOMSP3)
      integer nx,ny,dimz
      real*4 z(dimz,*)
      character*(*) nomps3

      SUBROUTINE SP3PR8(NX,NY,Z,DIMZ,NOMSP3)
      integer nx,ny,dimz
      real*8 z(dimz,*)
      character*(*) nomps3

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 SPX3PRC 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.