>>> FOREACH ANGLE in (90, 100, 110)

&GATEWAY
  Coord
    3
    Angstrom
    O 0.0 0.0 0.0
    H 1.0 0.0 0.0
    H 0.0 1.0 0.0
  Group = NoSym
  Basis = STO-3G
  Constraints
    a = Angle H2 O1 H3
  Values
    a = $ANGLE degrees
  End of Constraints
  
>>> DOWHILE

&SEWARD

&SCF

&SLAPAF

>>> ENDDO

>>> ENDDO


