Specifications

Visual Fortran Run-Time Errors Page 45 of 48

FOR$IOS_F6779. MOD(A,P) is computed as A - INT(A/P) * P. So, P cannot be zero.

735

severe (735): P argument to MODULO is real zero

FOR$IOS_F6780. MODULO(A,P) for real numbers is computed as A - FLOOR(A/P)

* P. So, P cannot be zero.

736

severe (736): P argument to MODULO is zero

FOR$IOS_F6781. In the function, MODULO(A,P), P cannot be zero.

737

severe (737): Argument S to NEAREST is zero

FOR$IOS_F6782. The sign of the S argument to NEAREST(X,S) determines the

direction of the search for the nearest number to X, and cannot be zero.

738

severe (738): Heap storage exhausted

FOR$IOS_F6783.

739

severe (739): PUT argument to RANDOM_SEED is too small

FOR$IOS_F6784. The integer array PUT must be greater than or equal to the number

of integers the processor uses to set the seed value. This number can be determined by

calling RANDOM_SEED with the SIZE argument. For example:

INTEGER, ALLOCATABLE SEED

CALL RANDOM_SEED( ) ! initialize processor

CALL RANDOM_SEED(SIZE = K) ! get size of seed

ALLOCATE SEED(K) ! allocate array

CALL RANDOM_SEED(PUT = SEED) ! set the seed

Note that RANDOM_SEED can be called with at most one argument at a time.

740

severe (740): GET argument to RANDOM_SEED is too small

FOR$IOS_F6785. The integer array GET must be greater than or equal to the number