module blabla | |
implicit none | |
integer :: includx | |
integer :: includex | |
real :: m | |
end module blabla | |
module blabla | |
implicit none | |
integer :: includx | |
integer :: includex | |
contains | |
subroutine blablas | |
print *, includex | |
write(*,*)"hello" | |
end subroutine blablas | |
end module blabla |