Topic: Sharing variables as an argument with Modules
I have the following problem, my main program calls subroutines that has arguments, those arguments are declared in a module but while compiling the following error appears:
Error: Symbol 'variable' at (1) has no IMPLICIT type
I dont know what is what I am missing here. I am pretty sure that is something really basic, but I'd been looking around and I cannot find the error.
I attached an example of the code that I am running. The following is the main program.
Program Various Use Datos Implicit None call SRTN01(a,b,c) Print *, a,b,c End Program Various
This is the module.
Module Datos Implicit None Double Precision :: a,b,c End Module Datos
And finally this is the subroutine.
Subroutine SRTN01(a,b,c) Use Datos Implicit None End Subroutine SRTN01
Every code is stored in a file independently of each other. Any help would be appreciated.