ALLSEL                                 ! minden objektum kijelölése 

*GET,noe,elem,0,count                  ! elemek megszámolása és noe változóba mentése
nonpe=4                                ! elemenkénti csomópontok száma (másodfokú közelítés esetén ez 8)
*DIM,nn,array,noe,nonpe                ! nn nevű, noe*nonpe méretű mátrix inicializálása
elemnum=0                              ! elemnum változó inicializálása
*DO,i,1,noe                            ! for ciklus az összes elemre
   *GET,elemnum,elem,elemnum,nxth      ! elemnum utáni legkisebb sorszámú elem sorszáma -> új elemnum
   *DO,j,1,nonpe                       ! for ciklus az elemnum-adik elem összes csomópontjára
      *GET,nodenum,elem,elemnum,node,j ! elemnum-adik elem j-edik csomópontjának globális sorszáma -> nodenum
      nn(i,j)=nodenum                  ! nn mátrix i,j -edik helyére nodenum berakása
   *ENDDO                              ! for ciklus lezárása
*ENDDO                                 ! for ciklus lezárása

*GET,non,node,0,count                  ! csomópontok megszámolása és non változóba mentése
*DIM,xy,array,non,2                    ! xy nevű non*2 méretű mátrix inicializálása                    
nodenum=0                              ! nodenum változó inicializálása
*do,i,1,non                            ! for ciklus az összes csomópontra
   *GET,nodenum,node,nodenum,nxth      ! nodenum utáni legkisebb sorszámú csomópont sorszáma -> új nodenum
   *GET,x,node,nodenum,loc,x           ! nodenum-adik csomópont x koordinátájának lekérése -> x
   *GET,y,node,nodenum,loc,y           ! nodenum-adik csomópont y koordinátájának lekérése -> y
   xy(i,1)=x                           ! x elhelezése xy mátrix i-edik sor, 1. oszlopába
   xy(i,2)=y                           ! y elhelezése xy mátrix i-edik sor, 2. oszlopába
*ENDDO                                 ! for ciklus lezárása

*CFOPEN,mesh,dat                       ! mesh.dat fájl létrehozása, megnyitása

*VWRITE,                               ! % berakása a mesh.dat fájlba
('%')
*VWRITE,nonpe                          ! elemenkénzi csomópontok számának kiírása
(1e20.10)  

*IF,nonpe,EQ,4,THEN                    ! nonpe=4 (lineáris eset)
*VWRITE,nn(1,1),nn(1,2),nn(1,3),nn(1,4)! nn mátrix elhelyezése mesh.dat fájlba
(4e20.10)                              ! formátum megadása
*ELSEIF,nonpe,EQ,8,THEN                ! nonpe=8 (másodfokú eset)
*VWRITE,nn(1,1),nn(1,5),nn(1,2),nn(1,6),nn(1,3),nn(1,7),nn(1,4),nn(1,8)! nn mátrix elhelyezése mesh.dat fájlba
(8e20.10)                              ! formátum megadása 
*ENDIF                                 ! feltétel lezárása
*VWRITE,                               ! % berakása a mesh.dat fájlba
('%')

*VWRITE,xy(1,1),xy(1,2)                ! xy mátrix elhelyezése mesh.dat fájlba
(2e20.10)                              ! formátum megadása
*VWRITE,                               ! % berakása a mesh.dat fájlba
('%')
*CFCLOS                               ! megnyitott mesh.dat fájl bezárása

FINISH                                 ! kilépés