4ϒποθέτουμε πως τα Nt, NEQ έχουν θετικές τιμές και η μνήμη που ζητάμε είναι διαθέσιμη. Πιο σωστά θα έπρεπε να δώσουμε την εντολή allocate(T(Nt),STAT=IERR) και μετά να ελέγξουμε την εκχώρηση με την εντολή IF(IERR .eq. 0) STOP ’Memory allocation for T failed’.