- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
Hi,
I'm trying run the following easy program:
##################################
program principal
implicit none
!Parametros utilizados no gerador de numeros aleatorios
Integer,Parameter :: AMAG=843314861,BMAG=453816693
integer :: iseed_2
iseed_2=1125412284
print*,(AMAG*iseed_2)
print*,(AMAG*iseed_2),BMAG
print*,(AMAG*iseed_2)+BMAG
end program principal
##################################
It's compiled whith
ifc -C -i_dynamics prog.f90
the following is the output
##################################
1718931468
1718931468 453816693
Input/Output Error 401: Unassigned variable
In Procedure: main program
At Line: 15
Statement: List-Directed WRITE
Unit: 6
Connected To: Stdout
Form: Formatted (contains List-Directed records)
Access: Sequential
Records Read : 0
Records Written: 2
Current I/O Buffer:
!
Diagnostics Entered From MAIN PROGRAM Line 15
End of diagnostics
##################################
What is going wrong?
Thank you.
Link Copied
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
Steve

- Subscribe to RSS Feed
- Mark Topic as New
- Mark Topic as Read
- Float this Topic for Current User
- Bookmark
- Subscribe
- Printer Friendly Page