/prep7
NUMCMP,ELEM
*GET,ELEMNUM,ELEM, ,NUM,MAX
            
*DIM,EVOLU,ARRY,ELEMNUM,1           
*DO,K,1,ELEMNUM,1                   
*GET,EVOLU(K,1),ELEM,K,VOLU                
*ENDDO

*cfopen,volume,txt
*vwrite,0
(F8.0,'volume')
*vwrite,sequ,evolu(1,1)
(F8.0,3e16.8)

*cfclos

會提示F8.0 is not a recognized prep7 command