Hi all,(adsbygoogle = window.adsbygoogle || []).push({});

So I have a program that calls a module that contains a subroutine so I can make a matrix.

When I write the matrix in the subroutine (commented out part in module) I get the right output, but when the main program tries to output it is some insanely small or large numbers.

I am new to Fortran (not coding) so any help/criticism would be greatly appreciated! Definitely a bit of a learning curve but I am excited to learn fortran.

Code (Text):

program test

use test_mod

implicit none

integer :: k

real, allocatable, Dimension(:,:) :: test_mat

write(*,*) 'Dimension for square test matrix: '

read (*,*) k

allocate(test_mat(k,k))

call test_matrix(k)

!This gives bad output, but right dimensions

write(*,*) test_mat

deallocate(test_mat)

end program test

Code (Text):

module test_mod

implicit none

contains

subroutine test_matrix(k)

integer :: k

real, dimension(:,:), allocatable :: test_mat

INTEGER :: i,j,m,n

allocate(test_mat(k,k))

do i = 1,k

do j = 1,k

test_mat(i,j) = 1.d0*((i+j-1))

end do

end do

!This loop gives correct output

!do m = 1,k

!write(*,*)(test_mat(m,n), n=1,k)

!end do

deallocate(test_mat)

end subroutine test_matrix

end module test_mod

**Physics Forums - The Fusion of Science and Community**

Dismiss Notice

Join Physics Forums Today!

The friendliest, high quality science and math community on the planet! Everyone who loves science is here!

The friendliest, high quality science and math community on the planet! Everyone who loves science is here!

# Fortran subroutine output

Loading...

Similar Threads for Fortran subroutine output | Date |
---|---|

Fortran Fortran external functions vs subroutines | Oct 17, 2017 |

Fortran File not written after subroutine call | Jul 14, 2017 |

Fortran How does Fortran know the Inputs and Outputs of Subroutines | Jan 23, 2017 |

Fortran [Fortran 77] Subroutine for computing a global spherical har | Sep 30, 2015 |

Fortran Fortran - passing unknown array to subroutine | Apr 11, 2015 |

**Physics Forums - The Fusion of Science and Community**