https://www.adonaimedrado.pro.br/wiki/index.php?action=history&feed=atom&title=F90%3A_O_uso_do_MODULE%2FUSE 2026-05-27T13:00:14Z Revision history for this page on the wiki MediaWiki 1.26.2 https://www.adonaimedrado.pro.br/wiki/index.php?title=F90:_O_uso_do_MODULE/USE&diff=717&oldid=prev 2008-11-03T02:08:39Z

<p>New page: Para compilar com o g95 utilizar: g95 modulomatematico.f90 aula.f90 -o aula == Arquivo aula.f90 == &lt;code lang=&quot;fortran&quot;&gt; PROGRAM aula USE ModuloMatematico IMPLICIT NONE CALL ObterRaio...</p> <p><b>New page</b></p><div>Para compilar com o g95 utilizar:<br /> g95 modulomatematico.f90 aula.f90 -o aula<br /> == Arquivo aula.f90 ==<br /> &lt;code lang=&quot;fortran&quot;&gt;<br /> PROGRAM aula<br /> USE ModuloMatematico<br /> IMPLICIT NONE<br /> <br /> CALL ObterRaio()<br /> WRITE (*,&quot;(A,F10.2)&quot;) &quot;A área da superfície da esfera é &quot;,RetornarArea()<br /> WRITE (*,&quot;(A,F10.2)&quot;) &quot;O volume da esfera é &quot;,RetornarVolume()<br /> END PROGRAM<br /> &lt;/code&gt;<br /> == Arquivo modulomatematico.f90 ==<br /> &lt;code lang=&quot;fortran&quot;&gt;<br /> MODULE ModuloMatematico<br /> SAVE<br /> REAL, PARAMETER :: pi = 3.14159265<br /> CONTAINS<br /> SUBROUTINE ObterRaio()<br /> IMPLICIT NONE<br /> INTEGER :: E<br /> REAL :: raio<br /> COMMON raio<br /> WRITE (*,*) &quot;Digite o valor do raio da esfera:&quot;<br /> DO<br /> READ (*,*,IOstat=E) raio<br /> IF (E&gt;0) THEN<br /> WRITE (*,*) &quot;Valor inválido. O raio deve ser um valor real.&quot;<br /> ELSE<br /> EXIT<br /> END IF<br /> END DO<br /> END SUBROUTINE<br /> REAL FUNCTION RetornarArea()<br /> IMPLICIT NONE<br /> REAL :: raio<br /> COMMON raio<br /> RetornarArea = 4*pi*(raio**2)<br /> END FUNCTION<br /> REAL FUNCTION RetornarVolume()<br /> IMPLICIT NONE<br /> REAL :: raio<br /> COMMON raio<br /> RetornarVolume = (4/REAL(3))*pi*(raio**3)<br /> END FUNCTION<br /> END MODULE ModuloMatematico<br /> &lt;/code&gt;</div>

Adonaimedrado