INTEGER iim,jjm,llm,ndm,wiim,wjjm,wbdym

       PARAMETER (iim= 1, jjm=13029,llm=38,ndm=1,wiim=129,wjjm=109,wbdym=5)