gfortran

I get the following error when I execute a fortran code compiled with gfortran . The error is followed by a backtrace for this error pointing to memory locations. Program received signal SIGSEGV: Segmentation fault - invalid memory reference. Backtrace for this error: #0 0x2b2f8e39da2d in ??? #1 0x2b2f8e39cc63 in ??? #2 0x311823256f in ??? #3 0x311827a7be in ??? #4 0x2b2f8e39cff2 in ??? #5 0x2b2f8e4adde6 in ??? #6 0x2b2f8e4ae047 in ??? #7 0x2b2f8e4a62d7 in ??? #8 0x40482a in instrument_ at /home/user/model/instrument.f:90 #9 0x406c1e in funcdet at /home/user/model/funcsynth.f:67 #10 0x406c98

When I run my code I get the following error for all the statements that have the following format. Is there any problem with the type statement? If yes kindly provide me with a solution. I running my code on a Ubuntu 14.10 system. The program is very long hence I am not posting it now however if required I can surely send it. recfunk_ascii.f:622.12: type *,'enter back-azimuth limits ib1,ib2 (integers!)' 1 Error: Invalid character in name at (1) Type is an obsolete and completely non-standard statement (see http://docs.oracle.com/cd/E19957-01/805-4939/6j4m0vnbi/index.html ). It is not portable

I have the following fortran code defined under. I am trying to change the length of the do loop if i change the value of n. When i try to compile i get the error: ‘a’ argument of ‘floor’ intrinsic at (1) must be REAL. But when i change q and w to be defined as real i get another error message. How can i fix this? q and w is clearly a integer when i use floor(...) subroutine boundrycon(n,bc,u,v) !input integer :: n,bc !output real(8) :: u(n+2,n+2), v(n+2,n+2) !lokale integer :: j,i,w,q n=30 q=floor(n/2) w=(floor(n/2)+floor(n/6)) do j=q,w u(q,j)=0.0; v(q+1,j)=-v(q,j); u(w,j)=0.0; v(w+1,j)=-v(w

I'm writing my code and using input and output feature in Fortran. The code looks like this ( only for simplification ): PROGRAM TEST REAL, DIMENSION(1000):: A REAL:: B INTEGER::T !Defining input and output OPEN(UNIT=1, FILE='input.dat', STATUS='OLD') OPEN(UNIT=2, FILE='output.dat', STATUS='NEW') !Reading from file "input.dat" READ(1,*) (A(I),I=1,1000) !Just for initial condition B=0.0 DO T=1, 10 PRINT *, 'Step =', T DO I=1, 1000 B=B+1.0 A(I)=A(I)/B END DO END DO !Writing results into file "output.dat" DO I=1, 1000 WRITE (2,100) I, A(I) END DO 100 FORMAT (' ',T3, I12, T17, F14.4) END PROGRAM

I have a Fortran program I am debuging. I have a list of varables and one of the expected variables is almost double its expected value. So I compiled the program, with debug flags, and commenced debugging: the program name is hfock $gdb hfock (gdb) break hfock (gdb) run Starting program: /home/e/Desktop/hfock hfock Breakpoint 1, hfock () at hfock.f:16 16 ZETA1 = 2.173171 (gdb) s 17 ZETA2 = 1.188530 (gdb) s 18 WRITE (*, '( "Zeta1:", F7.4 / "Zeta2:", F7.4 )' ) ZETA1, ZETA2 (gdb) s Zeta1: 2.1732 Zeta2: 1.1885 21 PLUS=ZETA1+ZETA2 (gdb) s 22 PROD=ZETA1*ZETA2 (gdb) s 23 DIFF=ZETA1-ZETA2 (gdb) s 24

I want to access some subroutines from a third party DLL. The functions use STDCALL as the calling convention. Running dumpbin /export foo.dll gives me something like: ... 7 6 00004B40 Foo@16 ... I compile my code using: gfortran test.f90 -o test.exe -Wl,foo.dll I get an error: undefined reference to '_foo_' (note the underscores). I have tried adding the -mrtd compilation flag, as well as other flags I googled, all to no avail. How can I tell fortran to not add the underscores? edit: A bit of clarification is in order. I have an existing DLL to which I do not have the source to. This DLL is