09-04-2015
Error in my FORTRAN program
I have a Fortran program and I am writing out to logical unit 7. The program is reading from a text file and writing to the new file formatted. It gets through the read and writes some to the file but then stops with the following error:
1525-013 The sequential WRITE statement cannot be completed because an errno value of 25 (Not a typewriter) was received while writi
ng the file ACA_TRANSMIT.XML. The program will stop.
I have looked for the error and can only discern it is some type of I/O error, but I cannot find a way to resolve it.
There are many WRITE statements and quite a lot of FORMAT statements, so I'm not sure where to begin. If the source file is changed, the program stops at different places in the write.
I am running a combo FORTRAN77/90 on UNIX AIX editor.
10 More Discussions You Might Find Interesting
1. Linux
Hi everybody:
Could anybody help me where could I download Fortran 90 complier?
Thanks in advance. :) (2 Replies)
Discussion started by: tonet
2 Replies
2. UNIX for Dummies Questions & Answers
Hello,
I have a FORTRAN code that I want to compile using F90 compiler. However,
when I enter the command:
f90 ./code.f -o ./code.out
It would give me prompt saying that absoft license has failed, or something.
I remember, however, that I could enter some keyword that ends with 'soft'
in... (1 Reply)
Discussion started by: Iamthe great
1 Replies
3. Programming
Hello,
we are a group of students (mechanical engineering) who are trying to port UNIX-software to a PC Linux system during a study project. The first goals were achieved: compiling the Fortran code and creating object files. However, we encounter errors during the linking process.
This is... (0 Replies)
Discussion started by: Dynamo
0 Replies
4. Programming
Hi,
I am new to this forum and do not know whether this is the appropriate place to post this question. Anyway am trying my luck.
I have a fortran program swanhcat.ftn, which is part of a wave modelling system. There is also a file hcat.nml which is required to run this program. The program's... (9 Replies)
Discussion started by: sandhyakg
9 Replies
5. Programming
Hello,
I have some Fortran code that is providing the following error:
At line 1165 of lapc_shells_2.f
Fortran runtime error: Insufficient data descriptors in format after reversion
Here are the lines just above and including 1165:
WRITE (*,"('ATTEMPTING TO READ PLATE... (1 Reply)
Discussion started by: jm4smtddd
1 Replies
6. Homework & Coursework Questions
1. The problem statement, all variables and given/known data:
I was given this program to work with that is supposed to work as it is. It comes with a makefile so all I should have to do is use the make command, then type ./blub to execute the program. A list of data should then appear in the... (3 Replies)
Discussion started by: Arjani
3 Replies
7. Shell Programming and Scripting
Need assistance in Fortran Compiler
I need to install Fortran compiler on Linux distribution . I don't have root access to use rpm or yum to install compiler . Is there any way I can get it ?
Are there any sites that has fortran compiler . Any links to download and install . (10 Replies)
Discussion started by: ajayram_arya
10 Replies
8. Programming
I am writing some code in fortran that defines certain shapes.
Currently I have a cuboid and a prism. Now a parallelepiped is both a cuboid and a prism. Is there a way to code this?
Currently I only have
Type, Extends (Cuboid) :: Parallelepipied
How can I do so that Parallelepipied is... (3 Replies)
Discussion started by: kristinu
3 Replies
9. Homework & Coursework Questions
Use and complete the template provided. The entire template must be completed. If you don't, your post may be deleted!
1. The problem statement, all variables and given/known data:
I'm doing aproximation of derivative called five-point stencil. For every value of x, in interval , in step... (0 Replies)
Discussion started by: antonija
0 Replies
10. Programming
Dear folks
I have a large data set which contains 400K columns. I decide to select 50K determined columns from the whole 400K columns. Is there any suggested fortran program which could do this process for me? I need to also mention that I store all of the columns id in one file which may help... (1 Reply)
Discussion started by: sajmar
1 Replies
LEARN ABOUT OSX
mpi_alloc_mem
MPI_Alloc_mem(3OpenMPI) MPI_Alloc_mem(3OpenMPI)
NAME
MPI_Alloc_mem - Allocates a specified memory segment.
SYNTAX
C Syntax
#include <mpi.h>
int MPI_Alloc_mem(MPI_Aint size, MPI_Info info, void *baseptr)
Fortran Syntax (see FORTRAN NOTES)
INCLUDE 'mpif.h'
MPI_ALLOC_MEM(SIZE, INFO, BASEPTR, IERROR)
INTEGER INFO, IERROR
INTEGER(KIND=MPI_ADDRESS_KIND) SIZE, BASEPTR
C++ Syntax
#include <mpi.h>
void* MPI::Alloc_mem(MPI::Aint size, const MPI::Info& info)
INPUT PARAMETERS
size Size of memory segment in bytes (nonnegative integer).
info Info argument (handle).
OUTPUT PARAMETERS
baseptr Pointer to beginning of memory segment allocated.
IERROR Fortran only: Error status (integer).
DESCRIPTION
MPI_Alloc_mem allocates size bytes of memory. The starting address of this memory is returned in the variable base.
FORTRAN NOTES
There is no portable FORTRAN 77 syntax for using MPI_Alloc_mem. There is no portable Fortran syntax for using pointers returned from
MPI_Alloc_mem. However, MPI_Alloc_mem can be used with Sun Fortran compilers.
From FORTRAN 77, you can use the following non-standard declarations for the SIZE and BASEPTR arguments:
INCLUDE "mpif.h"
INTEGER*MPI_ADDRESS_KIND SIZE, BASEPTR
From either FORTRAN 77 or Fortran 90, you can use "Cray pointers" for the BASEPTR argument. Cray pointers are described further in the For-
tran User's Guide and are supported by many Fortran compilers. For example,
INCLUDE "mpif.h"
REAL*4 A(100,100)
POINTER (BASEPTR, A)
INTEGER*MPI_ADDRESS_KIND SIZE
SIZE = 4 * 100 * 100
CALL MPI_ALLOC_MEM(SIZE,MPI_INFO_NULL,BASEPTR,IERR)
! use A
CALL MPI_FREE_MEM(A, IERR)
ERRORS
Almost all MPI routines return an error value; C routines as the value of the function and Fortran routines in the last argument. C++ func-
tions do not return errors. If the default error handler is set to MPI::ERRORS_THROW_EXCEPTIONS, then on error the C++ exception mechanism
will be used to throw an MPI:Exception object.
Before the error value is returned, the current MPI error handler is called. By default, this error handler aborts the MPI job, except for
I/O function errors. The error handler may be changed with MPI_Comm_set_errhandler; the predefined error handler MPI_ERRORS_RETURN may be
used to cause error values to be returned. Note that MPI does not guarantee that an MPI program can continue past an error.
SEE ALSO
MPI_Free_mem
Open MPI 1.2 September 2006 MPI_Alloc_mem(3OpenMPI)