/usr/share/viewmol/writemol is in viewmol 2.4.1-24.
This file is owned by root:root, with mode 0o755.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 | #! /bin/sh
#*******************************************************************************
# *
# Viewmol *
# *
# W R I T E M O L *
# *
# Copyright (c) Joerg-R. Hill, October 2003 *
# *
#*******************************************************************************
#
# $Id: writemol,v 1.5 2003/11/07 12:59:02 jrh Exp $
# $Log: writemol,v $
# Revision 1.5 2003/11/07 12:59:02 jrh
# Release 2.4
#
# Revision 1.4 2000/12/10 15:19:19 jrh
# Release 2.3
#
# Revision 1.3 1999/05/24 01:28:03 jrh
# Release 2.2.1
#
# Revision 1.2 1999/02/07 22:00:12 jrh
# Release 2.2
#
# Revision 1.1 1998/01/26 00:35:31 jrh
# Initial revision
#
#
case `uname -s` in
SunOS*) AWK=nawk
;;
IRIX*) AWK=nawk
;;
*) AWK=awk
;;
esac
export LANG="C"
cat | $AWK '/^\$/ {readcoord=0;
readbonds=0;}
{if (readcoord == 1)
{
x[na]=$1*0.52917706;
y[na]=$2*0.52917706;
z[na]=$3*0.52917706;
symbol[na++]=$4;
}
if (readbonds == 1)
{
atom1[nb]=$1;
atom2[nb]=$2;
order[nb++]=$3;
}
}
/^\$coord/ {readcoord=1;
printf("\n Viewmol ");
system("date +%m%d%y%H%M");
printf("\n");
na=0;
}
/^\$bonds/ {readbonds=1;
nb=0;
}
END {
printf("%3d%3d 0 0 0 0 0 0 0 0 1 V2000\n", na, nb);
for (i=0; i<na; i++)
printf("%10.4f%10.4f%10.4f %-3s 0 0 0 0 0 0 0 0 0 0 0 0
\n", x[i], y[i], z[i], symbol[i]);
for (i=0; i<nb; i++)
printf("%3d%3d%3d 0 0 0 0\n", atom1[i], atom2[i], order[i] > 0 ? order[i] : 1);
printf("M END\n");
}' > "$1"
|