67   ITG nk,ne,nboun,nmpc,nforc,nload,nprint,nset,nalset,nentries=18,  in main()  local
183 	  qaold,physcon,&istep,&istat,&iprestr,&kode,&nload,&nbody,&nforc,  in main()
598 		      ndirforc,xforc,&nforc,&nforc_,nelemload,sideload,xload,  in main()
648 		  iamload,&nforc,nodeforc,iamforc,xforc,ithermal,&nk,&t1,&iamt1,  in main()
739       NNEW(xforcold,double,nforc);  in main()
938       RENEW(xforcold,double,nforc);  in main()
939       for(i=nforcold;i<nforc;i++) xforcold[i]=0;  in main()
967     RENEW(nodeforc,ITG,2*nforc);  in main()
968     RENEW(ndirforc,ITG,nforc);  in main()
969     RENEW(xforc,double,nforc);  in main()
970     RENEW(ikforc,ITG,nforc);  in main()
971     RENEW(ilforc,ITG,nforc);  in main()
1026       RENEW(iamforc,ITG,nforc);  in main()
1201 		    &nforc,nelemload,sideload,xload,&nload,  in main()
1232 		    ndirforc,xforc,&nforc,&nelemload,&sideload,xload,&nload,  in main()
1270 	       &nforc,nelemload,sideload,xload,&nload,  in main()
1306 		 &nforc,nelemload,sideload,xload,&nload,  in main()
1338 	       &nforc,  in main()
1369 	     &nforc,  in main()
1402 		    xforc,&nforc,  in main()
1432 		    ndirforc,xforc,&nforc,  in main()
1464 		       &nforc,&nelemload,&sideload,xload,&nload,  in main()
1496 		   ndirforc,xforc,&nforc,nelemload,sideload,xload,&nload,  in main()
1519 		    ndirforc,xforc,&nforc,nelemload,sideload,xload,&nload,  in main()
1545 		   ndirforc,xforc,&nforc,nelemload,sideload,xload,&nload,  in main()
1566 		       &nload,sideload,iamload,&nforc,iamforc,xforc,ithermal,t1,  in main()
1644 		qaold,physcon,&istep,&istat,&iprestr,&kode,&nload,&nbody,&nforc,  in main()
1679       nforc=0;  in main()
1693       nforcold=nforc;  in main()
1707 	for(i=0;i<nforc;i++){  in main()
1773 	FORTRAN(restartwrite,(&istep,&nset,&nload,&nforc,&nboun,&nk,&ne,&nmpc,  in main()