You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
13 lines
289 B
13 lines
289 B
subroutine pvclearcache
|
|
implicit none
|
|
include 'TRclear.f'
|
|
include 'pvRespectmaxcindex.f'
|
|
include 'TRbadpoint.f'
|
|
integer:: j
|
|
do j=1,5
|
|
clear(j)=.true.
|
|
enddo
|
|
pvRespectmaxcindex=.true.
|
|
pvbadpoint=.false.
|
|
return
|
|
end
|