100 umat在第一次调用时读取txt文件数据，并且可以在后续使用。怎么实现？

我想在umat第一次调用的时候读取txt文件中的数据并且保存，方便后续的调用，我的代码如下： OPEN(UNIT=91, FILE=TRIM(FNAME1), STATUS='OLD', ACTION='READ', 1 ACCESS='SEQUENTIAL', FORM='FORMATTED', IOSTAT=IOS) IF (IOS .NE. 0) THEN WRITE(*,*) '*** ERROR: could not open file: ', TRIM(FNAME1) CALL XIT END IF READ(91,*,IOSTAT=IOS) BUF7 IF (IOS /= 0) T...