text: /* fmtdp.f -- translated by f2c (version 19980913).
     You must link the resulting object file with the libraries:
  	-lf2c -lm   (in that order)
  */
  
  #include "f2c.h"
  
  /* $ Disclaimer */
  
  /*     THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE */
  /*     CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. */
  /*     GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE */
  /*     ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE */
  /*     PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" */
  /*     TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY */
  /*     WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A */
  /*     PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC */
  /*     SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE */
  /*     SOFTWARE AND RELATED MATERIALS, HOWEVER USED. */
  
  /*     IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA */
  /*     BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT */
  /*     LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, */
  /*     INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, */
  /*     REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE */
  /*     REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. */
  
  /*     RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF */
  /*     THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY */
  /*     CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE */
  /*     ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. */
  
  /* -    Version 1.1.0  09-JAN-1997 (WLT) */
  
  /*       Replaced call to DPFMT_1 with call to DPFMT. */
  
  
  
  
  /* Subroutine */ int fmtdp_(doublereal *dpval, char *format, char *string, 
  	ftnlen format_len, ftnlen string_len)
  {
      /* System generated locals */
      integer i__1;
  
      /* Builtin functions */
      integer i_len(char *, ftnlen);
      /* Subroutine */ int s_copy(char *, char *, ftnlen, ftnlen);
  
      /* Local variables */
      integer i__;
      extern /* Subroutine */ int chkin_(char *, ftnlen), dpfmt_(doublereal *, 
  	    char *, char *, ftnlen, ftnlen);
      extern integer rtrim_(char *, ftnlen);
      extern /* Subroutine */ int ljust_(char *, char *, ftnlen, ftnlen), 
  	    chkout_(char *, ftnlen);
      integer outlen;
      extern logical return_(void);
      char tmpstr[132];
  
  
  /*     Standard SPICE error handling. */
  
      if (return_()) {
  	return 0;
      } else {
  	chkin_("FMTDP", (ftnlen)5);
      }
      dpfmt_(dpval, format, tmpstr, format_len, (ftnlen)132);
      ljust_(tmpstr, tmpstr, (ftnlen)132, (ftnlen)132);
      outlen = i_len(string, string_len);
      if (rtrim_(tmpstr, (ftnlen)132) > outlen) {
  	i__1 = outlen;
  	for (i__ = 1; i__ <= i__1; ++i__) {
  	    *(unsigned char *)&string[i__ - 1] = '*';
  	}
      } else {
  	s_copy(string, tmpstr, string_len, (ftnlen)132);
      }
      chkout_("FMTDP", (ftnlen)5);
      return 0;
  } /* fmtdp_ */
  
  