finish
/CLEAR,START
/NOPR
/NERR,,,-2                                                           !Fehlermeldungen ignorieren ->in jobname.err-Datei
/UIS,MSGPOP,4                                                        !Warning und Error im LOG-File unterdrücken
/RGB,INDEX,100,100,100, 0                                            !Darstellungsoptionen
/RGB,INDEX, 80, 80, 80,13
/RGB,INDEX, 60, 60, 60,14
/RGB,INDEX, 0, 0, 0,15                                               !True Scale einstellen
/DSCALE,ALL,1.0

icount=0                                                             !Zähler auf 0 setzen
LF=44.5                                                              !Lasteinleitungsort der ersten Schleife definieren
NF=6                                                                !Netzfeinheit einstellen
*do,icount,1,1,1                                                     !Schleifenanweisung zum Aufruf der versch. Laststellungen
   /gopr                                                             !jedes Schleifenergebnis wird in LOG-file geschrieben
   UIC60_S1,LF,NF                                                    !Macro-Aufurf, Übergabe der Argumente LF und NF
   ALLS                                                              !Knoten um Loch wählen
   LSEL,S,LOC,Z,L1
   ASLL,S,ALL
   NSLA,S,1
   NSORT,S,1
   *del,_mask
   *del,_arr
   *get,nmax,node,0,count                                            !größte Knotennummer
   *get,nmin,node,0,num,min                                          !kleinste Knotennummer

   *set,_mask                                                        !Maske aufsetzen
   *dim,_mask(1),,nmax                                               !um nicht selektierte Knoten
   *vget,_mask(1),node,1,nsel                                        !zu überspringen
   *voper,_mask(1),_mask(1),eq,1

   *vwrite,LF                                                        !Laststellung in Werte.txt schreiben
   (F3.0)
   *set,_arr
   *dim,_arr,array,nmax,3,1
      *vmask,_mask(1)                                                !Masken-Abfrage
      *vget,_arr(1,2),node,1,s,1                                     !Hauptspannung S1 auslesen
      *vmask,_mask(1)                                                !Masken-Abfrage
      *vget,_arr(1,3),node,1,s,eqv                                   !Vergleichsspannung auslesen
      !*vmask,_mask(1)
      *vfill,_arr(1,1),ramp,1,1                                      !Vektor mit Knotennummern auffüllen
      *cfopen,'Werte','txt',,append                                  !Werte.txt öffnen
      *vmask,_mask(1)
      *vwrite,_arr(1,1),_arr(1,2),_arr(1,3)                          !in Werte.txt schreiben
      (F10.0,3x,F10.6,3x,F10.6)
      *cfclos
      *uilist,Werte.txt
   *set,LF,LF+15                                                     !LF weitersetzen
*enddo