The following program generate:
***** ERROR in HBNAME : Error in token : ID= 2
Program CWN_LONGV
*
Common /Pawc/ H(100000)
Common /CWN/ RLONGNAME(1000)
*.___________________________________________
*
Call Hlimit(100000)
*
Call Hropen(1,'CWN','cwn.hbook','N',1024,Istat)
If (Istat.Ne.0) Then
Print*, 'Error in opening file ...'
Stop
Endif
*
Call Hbnt(1,'CWN',' ')
Call Hbname(1,'Block1',RLONGNAME,
+'RLONGNAME(1000)[-100,-100]:R*4:18')
Call Hntdup(1,2,-1,' ','A')
*
Call Hrout(0,Icycle,' ')
Call Hrend('CWN')
*
end
|
