diff -ur topdrawer.orig/INSTALL topdrawer/INSTALL
--- topdrawer.orig/INSTALL	2006-05-19 19:13:23.000000000 +0900
+++ topdrawer/INSTALL	2008-09-02 09:43:55.000000000 +0900
@@ -97,3 +97,7 @@
 o AIX
 
 Pathced to run on AIX 5.3 & XL Fortran V9.1.  
+
+o MacOS X (Intel)
+
+Pathced to run on Darwin-9.4 (Xcode-31, Fink-0.9.0, g95-8.11.1)
diff -ur topdrawer.orig/INSTALL-j topdrawer/INSTALL-j
--- topdrawer.orig/INSTALL-j	2006-05-19 19:12:46.000000000 +0900
+++ topdrawer/INSTALL-j	2008-09-02 09:44:16.000000000 +0900
@@ -97,3 +97,7 @@
 
 ・AIX
   5.3 XL Fortran V9.1 で動作するように修正しました。
+
+・MacOS X (Intel)
+  Darwin-9.4 (Xcode-31, Fink-0.9.0, g95-8.11.1) で動作するように修正
+  しました。
diff -ur topdrawer.orig/Imakefile.def topdrawer/Imakefile.def
--- topdrawer.orig/Imakefile.def	2007-12-07 20:54:30.000000000 +0900
+++ topdrawer/Imakefile.def	2008-09-02 11:41:53.000000000 +0900
@@ -8,6 +8,7 @@
 /* #define DigitalArchitecture */
 /* #define FreeBSDArchitecture */
 /* #define AIXArchitecture */
+/* #define DarwinArchitecture */
 
 UGS = ${HOME}/lib/ugs/ugs.a
 
@@ -66,6 +67,16 @@
 LDOPT   = -brename:.malloc_,.malloc -brename:.free_,.free
 #endif
 
+#if defined(DarwinArchitecture)
+ARCH    = __Darwin
+FC      = g95
+FFLAGS  = -O2 -fstatic -fzero -freal-loops -fsloppy-char
+CFLAGS  = -O2 -DIUCLC=0001000
+AR      = ar
+ARFLAGS = rsv
+RANCMD  =
+#endif
+
 /*--------------------- General Rules ------------------------*/
 
 .f.o:;\
diff -ur topdrawer.orig/README topdrawer/README
--- topdrawer.orig/README	2006-05-21 14:01:01.000000000 +0900
+++ topdrawer/README	2008-09-02 09:47:14.000000000 +0900
@@ -801,3 +801,8 @@
 
 Ported to AIX 5.3 XL Fortran (miho.rcnp.osaka-u.ac.jp).  
 
+o Release 1.4e 2-Sep-08
+
+Ported to MacOS X 10.5.4 (intel) Darwin 9.4.0, 
+introducing Xcode-31, Fink-0.9.0, g95-8.11.1. 
+
diff -ur topdrawer.orig/README-j topdrawer/README-j
--- topdrawer.orig/README-j	2006-05-21 14:00:34.000000000 +0900
+++ topdrawer/README-j	2008-09-02 09:45:58.000000000 +0900
@@ -779,3 +779,8 @@
   AIX-5.3 XL Fortran V.9.1 (miho.rcnp.osaka-u.ac.jp) に対応。
   配布元を www.rcnp.osaka-u.ac.jp/~okamura/pub/ に変更。
 
+
+o Release 1.4e 2008 年  9 月  2 日
+
+  MacOS X 10.5.4 (intel) Darwin 9.4.0 に対応。
+  ただし Xcode-31, Fink-0.9.0, g95-8.11.1 を導入。
Only in topdrawer/examples: fort.86
diff -ur topdrawer.orig/src/t2del.f topdrawer/src/t2del.f
--- topdrawer.orig/src/t2del.f	1995-09-15 23:48:43.000000000 +0900
+++ topdrawer/src/t2del.f	2008-09-02 09:31:24.000000000 +0900
@@ -1562,8 +1562,8 @@
       JTEST1=ICHAR('X')
       JTEST2=ICHAR('Y')
       IF (.not.LSET) THEN
-      JTEST1=ICHAR(CXYZ(IXYZ))
-      JTEST2=ICHAR(CXYZ(IXYZ))
+      JTEST1=ICHAR(CXYZ(IXYZ)(:1))
+      JTEST2=ICHAR(CXYZ(IXYZ)(:1))
       ENDIF
       CALL T2CURS(J,XYZ0,XYZ1,XYZ2,LF1,LF2)
       IT=4
diff -ur topdrawer.orig/src/td.f topdrawer/src/td.f
--- topdrawer.orig/src/td.f	2006-05-21 13:57:37.000000000 +0900
+++ topdrawer/src/td.f	2008-09-02 09:34:28.000000000 +0900
@@ -1009,7 +1009,7 @@
       INTEGER NINP(NINMAX)
       COMMON /T2TRBK/NINP, JOUFIL, ERRFIL, OUTFIL, DBGFIL, INPFIL
       CHARACTER*512 STRNG, STJOU
-      LOGICAL LTOKEN
+      LOGICAL LTOKEN,T2_VIRT,DMMY
       REAL FLOTNG
       INTEGER INTERP, KEYORD, NSTRNG, MAXSTR, NSTJOU, LSTJOU, NTOKEN
       INTEGER*4 INTEG