CODIGO DE INICIACIÓN PARA SIMULACIÓN

CODIGO DE INICIACIÓN PARA SIMULACIÓN

INTEGER :: i

do i=1,5

if(i==3) exit

write(*,*) i

end do

write(*,*) 'end of loop'

INTEGER :: i

do i=1,5

if(i==3) exit

write(*,*) i

end do

write(*,*) 'end of loop'

INTEGER :: i

do i=1,5

if(i==3) exit

write(*,*) i

end do

write(*,*) 'end of loop'

INTEGER, parameter :: SHORT_INT = KIND(1) &

  SHORT_REAL = Selectde_Real_Kind(4)

  INTEGER (KIND = short_int):: One, Two

  REAL(KIND= short_real):: Actual

  ! start program gentleman

  One=1_SHORT_INT

  Two=2_SHORT_INT

  Actual = 3.0_SHORT_REAL

  PRINT *, One,Two,Actual

implicit none

REAL:: A=3.0

INTEGER :: K=3,M1,M2

!start program Mixed_Types

M1=(A/4)*K

M2=(K/A)*A

PRINT*,"REAL:: A=3.0 INTEGER :: K=3,M1,M2;M1=(A/4)*K;M2=(K/A)*A"

PRINT *,M1,M2