/post1

ETABLE,,CENT,X
ETABLE,,CENT,Y
ETABLE,,CENT,Z
ETABLE,,U,X
ETABLE,,U,Y
ETABLE,,U,Z

*get,max_element_nr,elem,0,num,max

*DIM,create,ARRAY,max_element_nr,8,1

*vget,create(1,7),elem,,esel,,,2     ! Status der Selektion eines jeden Elementes

*vmask,create(1,7)
*VGET,create(1,1),ELEM,,ETAB,CENTX,,2
*vmask,create(1,7)
*VGET,create(1,2),ELEM,,ETAB,CENTY,,2
*vmask,create(1,7)
*VGET,create(1,3),ELEM,,ETAB,CENTZ,,2

*vmask,create(1,7)
*VGET,create(1,4),ELEM,,ETAB,UX,,2
*vmask,create(1,7)
*VGET,create(1,5),ELEM,,ETAB,UY,,2
*vmask,create(1,7)
*VGET,create(1,6),ELEM,,ETAB,UZ,,2

*get,selelem,elem,,count
*dim,print,array,selelem,7,1

Zaehler=0
*do,laufvar1,1,max_element_nr,1
  *if,create(laufvar1,7),eq,1,then
    Zaehler=Zaehler+1
    print(Zaehler,1)=laufvar1
    print(Zaehler,2)=create(1,1)
    print(Zaehler,3)=create(1,2)
    print(Zaehler,4)=create(1,3)
    print(Zaehler,5)=create(1,4)
    print(Zaehler,6)=create(1,5)
    print(Zaehler,7)=create(1,6)
  *endif
*enddo

*CFOPEN,'create','dat'
  *VWRITE,'ELEM','CENTX','CENTY','CENTZ','UX','UY','UZ',,,
  (a,a,a,a,a,a)
  *VWRITE,print(1,1),print(1,2),print(1,3),print(1,4),print(1,5),print(1,6),print(1,7),,,
  ((f12.3),(f12.3),(f12.3),(f12.3),(f12.3),(f12.3),(f12.3))
*CFCLOS