Learning Forum

[Erik Kostson]

Hi as said that is the basic flow - I had something lying around and took very little change , so wanted to share in case anyone else would need this (have in mind there should not be any empty rows especially between *vwrite and (F20.10,F20.10)). Also the text file is placed in the solver files directory is.


! Allocate arrays
cmsel,s,gp,NODE
*GET,my_NNUM,NODE,,COUNT !GET NUMBER OF SELECTED NODES IN MODEL
*GET,my_numtimes, ACTIVE, 0,SOLU,NCMLS

*dim,fsP,array,my_numtimes,2

! Extract force sum
*do,ii,1,my_numtimes,1
set,ii,last
*get,my_time,time
fsum
*get,my_fsum,fsum,,item,fz
fsP(ii,1) = my_time
fsP(ii,2) = my_fsum
*enddo

*CFOPEN,timefsumz,txt
*VWRITE,fsP(1,1),fsP(1,2)
(F20.10,F20.10)
*CFCLOS