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

  1. When you go browsing to play slots for actual cash or for free, want to|you should|you have to} know means to|tips on how to} decide good slot machine video games. Finding what are one of the best type of slot machines to play and means to|tips on how to} enhance your probabilities to win at slots is the dream of everybody into on-line playing. But if you want to|if you would like to} enhance your probabilities of walking away with more cash than you went in with, want to|you should|you have to} know which video games are most likely to win. Before you sit down at a desk, know which on line casino video games have one of the best odds that you simply can|so as to|to find a way to} make smart bets. All the free slots with free spins and different bonuses can be played on quantity of} Android and iOS cell units, together with smartphones and tablets. Jackpot Party Casino was created to deliver the ultimate word|the final 카지노 사이트 word} cell on line casino gaming experience.

    ResponderExcluir

Postar um comentário

Postagens mais visitadas deste blog

DATA

HYDROGEN-RADIAL

HYDROGEN-POTENTIAL