SIGN

 !Program name: SIGN

Integer :: A(12)

!ARRAY A in senoidal behavior

A=[1,2,1,-1,-2,-1,1,2,1,-1,-2,-1]

write (*,*) sign(1,A)

! It shows  1  1  1  -1  -1  -1  1  1  1  -1  -1  -1

Write (*,*) sign (1,-2), sign (2,-1)

!It shows  -1  -2

Write (*,*) int(3.7), nint(3.7)

!It shows  3   4

write (*,*) int(2.3), nint(2.3)

!It shows  2   2

end

Comentários

Postagens mais visitadas deste blog

RECURSIVE

HYDROGEN-RADIAL

RUNGE-KUTTA