| |
| | [No title] |
 | | c logical ll1,ll2 character*(*) name include 'wmem_inc.f' Wdebug1=ll1 Wdebug2=ll2 if (Wdebug1) then write(6,'(a,a24,a12,2l6)') 'Wmem> ', $ name, 'Debug:', Wdebug1, Wdebug2 endif end subroutine w_reset(name) implicit none c c Initialize or reset allocation scheme... |
 | | left=LENWOR-iW8next-1 left=KVIR2-iW8next-1 if (Wdebug1) then write(6,'(a,a24,a12, i12)') $ 'Wmem> ', name, 'space left:', left endif end subroutine w_memchk(name) implicit none c c Check control flags for monitoring memory corruption. |
 | | c character*(*) message write(6,*) 'Wmem FATAL ERROR> ', message c write(6,*) 'Stopping. |
| www-laog.obs.ujf-grenoble.fr /~valiron/ccr12/v1.1_update/wmem.f (555 words) |
|