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