#! /bin/sh
#
#ifort -g -o structx struct.f
#
./structx < ssin > ssout