subroutine platef(D)
      
        
      
Cf77*****************************************************************
C
C     Programmbeschreibung:
C     ---------------------
C  
C     Routine zur Ausgabe der Elementspannungen
C
C
C
C
C     Eingangsvariablen:
C  
C      Name            | Beschreibung
C     ---------------------------------------------------------------
C      D               | Verschiebungen
C                      | 
C                      | 
C                      | 
C                       
C
C
C     Ausgangsvariablen:
C
C      Name            | Beschreibung
C     ---------------------------------------------------------------
C      SIG(1)          | SIGMAxx
C      SIG(2)          | SIGMAyy  ! Wohl eher Momente und Kräfte...
C      SIG(3)          | SIGMAxy
C      SIG(4)          | SIGMAxz 
C      SIG(5)          | SIGMAyz
C
C     Interne Variablen:
C
C      Name            |
C     --------------------------------------------------------------------------
C                      |  
C                      | 
C                      | 
C
C
C     Laufvariablen: MM
C     
C     subroutine: CALSTR
C
C     common-blocks: NPAR(14),NUMNP,MBAND,NELTYP,N1,N2,N3,N4,N5,MTOT,NEQ
C                    LM(12),ST(5,12),SIG(5)
C                    NT1,NT2,NT3,NIN,NOT
C
C     Literatur:
C  
C     Erstellt von: Mark Fiolka
C     
C     Datum: 02.01.2002
C 
C     Geändert: 17.01.2002
C
C********************************************************************* 
 
      COMMON /ELPAR/ NPAR(14),NUMNP,MBAND,NELTYP,N1,N2,N3,N4,N5,MTOT,NEQ
      COMMON LM(12),ST(5,12),SIG(5)
      COMMON /IOFIL/ NT1,NT2,NT3,NIN,NOT
      
      WRITE(*,*) '  ---> SR Platef'
      
      NUME=NPAR(2)
C      WRITE (NOT,2000)
C      DO 500 MM=1,NUME
C        CALL CALSTR(5,12,LM,ST,SIG,D)
C  500   WRITE (NOT,2001)MM,SIG(1),SIG(2),SIG(3),SIG(4),SIG(5)
      RETURN
 2000 FORMAT(//7H MEMBER,9X,3HMxx,9X,3HMyy,9X,3HMxy,9X,3HMxz,9X,3HMyz)
         
               
 2001 FORMAT (I6,5E12.5)
      END