833 |
if ( nfac .ne. 1 ) then |
if ( nfac .ne. 1 ) then |
834 |
c This is the case of obcs. I am not sure that this is correct, but |
c This is the case of obcs. I am not sure that this is correct, but |
835 |
c it seems to work in most configurations. |
c it seems to work in most configurations. |
|
print * , 'ml-startrec = ', startrec |
|
|
print * , 'ml-endrec = ', endrec |
|
836 |
endrec = (endrec - startrec + 1)*nfac |
endrec = (endrec - startrec + 1)*nfac |
837 |
startrec = (startrec - 1)*nfac + 1 |
startrec = (startrec - 1)*nfac + 1 |
|
print * , 'ml-startrec2 = ', startrec |
|
|
print * , 'ml-endrec2 = ', endrec |
|
838 |
endif |
endif |
839 |
endif |
endif |
840 |
# else /* ndef ALLOW_CAL */ |
# else /* ndef ALLOW_CAL */ |