Searched refs:last_temp_bkup (Results 1 – 2 of 2) sorted by relevance
44 allocate(fstrSOLID%last_temp_bkup(size(fstrSOLID%last_temp)))90 if( associated(fstrSOLID%last_temp_bkup) ) deallocate(fstrSOLID%last_temp_bkup)139 fstrSOLID%last_temp_bkup(i) = fstrSOLID%last_temp(i)190 fstrSOLID%last_temp(i) = fstrSOLID%last_temp_bkup(i)
388 real(kind=kreal), pointer :: last_temp_bkup(:) => null() component