1 subroutine tce_diis2_init 2c 3c $Id$ 4c 5c Initializes file handle holders 6c 7 implicit none 8#include "tce_diis.fh" 9 integer i 10c 11 t1_pointer = 0 12 t2_pointer = 0 13 t3_pointer = 0 14 t4_pointer = 0 15 r1_pointer = 0 16 r2_pointer = 0 17 r3_pointer = 0 18 r4_pointer = 0 19 do i = 1,maxdiis 20 t1_diis_exist(i) = .false. 21 r1_diis_exist(i) = .false. 22 t2_diis_exist(i) = .false. 23 r2_diis_exist(i) = .false. 24 t3_diis_exist(i) = .false. 25 r3_diis_exist(i) = .false. 26 t4_diis_exist(i) = .false. 27 r4_diis_exist(i) = .false. 28 enddo 29 return 30 end 31